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12-Sep-1984 DIR fokt Y.832:; 
H 1 001 MODULE DIRECTORY ( 
3 ¢ § LANGUAGE tBL 18836) 
3 pbent ° 
3 4 MAIN So “D1 RSMAIN 
; 5 5 
; ? 09 i BEGIN 
: mS 03 : ESERIES LIESILIL ISITE TT TTT ETT TTT Perici eric citi iii iiiiiiit 
$ '@ . 
. 11 1 te vette Af: 1978, 1980, 1982, 1984 BY * 
$ \§ og 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
$ + Biz : ALL RIGHTS RESERVED. « 
Ps :* % 
3 15 0015 1 !* THIS ite iS at oe UNDER A LICEWSE AND MAY BE USED AND gd 14 « 
3 1 Bote 1 !* ONLY IN i ANCE WITH THE TERMS OF SUCH LICENSE AND WITH * 
; 1 001 1 !® INCLUSION pote ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY orn HER * 
3 18 Bete 1! COPIES OHEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 19 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY e 
3 , 4 9 : ~ TRANSFERRED. ® 
PY . = 
3 ¢ ¢ 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: ¢ 90 ¢ ! o CORPORATION. : 
; 6 00 $ 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS « 
: i 4 8 ; :: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
> 29 0029 1 ie @ 
3 0 Boas : PITTIILILILILLILI LPL LI LL LLLL Li TT Li iti iii li liiiiiiiiiiiiiiiiii tee 
3 1 
3 ¢ 00 ; 1 tte 
3 8 1! 
3 4 : 2% FACILITY: DIRECTORY 
3 5 0035 1: 
4 6 B038 1 i ABSTRACT: 
3 7 0037 1: 
3 § O85 1! This module contains the main processing routine for the directory 
3 4 s't4 : : command. It also contains various error reporting routines. 
> 4] 0041 1 | ENVIRONMENT: 
3 $§ B06 1; 
3 a7 ob : : VAX/VMS operating system, unprivileged user mode utilities. 
> 45 be 1 ine 
2. 5@ pe$ 2 
: rth 04 : AUTHOR: L. Mark Pilant CREATION DATE: 3-Mar-1983 
: 49 ‘3 i MODIFIED BY: 
: 1 51 17: v03-020 LMP0296 L. Mark Pilan 6-Aug-1984 12:54 
, *% 3¢ : Note the hack to get /FULL to ~~ with the magtape ACP. 
; 34 54 1 v03-019 LMP0280 L. Mark Pilan 19-Jul-1984 12:54 
; 56 2? : Give the correct text on the “DIRS_SYNTAX error message. 
: 5 3$ 1: v05-018 LMP0276 L. Mark Pilant, T1l-Jul-1984 11:51 
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Va-$ep-1986 13:19:31 LotR SRCSDIAEC TORY 03024 Page 45 
sone modifications: 


coe Oe in LMPO0263 that caused extra headings to 

ut. 

2) Fix the handling of /OUTPUT and /NOOUTPUT. 

v03-017 LMP0263 L. Mark Pilant, 26-Jun-1984 12:58 
Clear out the version count and saved directory name for 
each input spec. 


v03-016 ; ty dd E gone 
x bug caused . vo “O14. edit. 


v03-018 81S0300 Benn Schreiber 11-APR=1984 
Do not Link with SECURESHR to get the format_acl service. 
Rather, only load it if /acl or /full. 


16-Apr-1984 


v03-014 JEJ0017 JE J 27-Mar-1984 
Clean up the network  SREARCH XAB fill support to use the 
NOP flag SRCHXABS. 

v03-013 LMP0211 L. Mark Pilant, 10-Mar-1984 12:44 


Fix some minor logic problems that occurred when the display 
iooes was changed. 


v03-012 BLS0265 Benn Schreiber 25-Jan-1984 
Use enhanced Libstite scan feotures for stickyness 


v03-011 LMP0182 L. Mark Pilan Tl-Jan-1984 12:43 
Note the use of the /SELECT mi titer with an appropriate flag. 


v03-010 LMP0180 L. Mark Pilant, 12-Dec-1983 9:42 
teense. @ bug in the formatting uncovered by the fix in 


v03-009 LMP0176 L. Mark Pilant 6-Dec-1983 8:54 
Correct an incorrect piece of logic used to determine the 
number of columns able to be printed in a display. 


v03-008 LMP0171 L. Mark Pilant, 23-Nov-1983 10:39 
Correct a bug that caused the size selection item to be 
dropped on the floor. 

v03-007 LMPO157 L. Mark Pilant, 27-Sep-1983 10:45 

Add support for a unique message file. 

v03-006 LMP0132 ¥. Mark Pilant po Aue -1983 10:19 
Correct the qualifier keyword COLUMN to be COLUMNS to match 
the documentation. 

v03-005 LMP0119 b. Mark Pilant, 15-Jun-1983 9:29 
Add support for identifiers. 

v03-004 LmP0108 L. Mark Pilant, 28-Apr-1983 10:49 


Issue a DIRECTORY message if no files are found, not an RAS 
message. Also, add support for RMS leurnsi ng. 


v03-003 LMP0100 L. Mark Pilant, 14-Apr-1983 11:49 
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Misc fixups. 


v03-002 LMP0096 Mark Pilant, 29-Mar-1983 10:01 


Correctly nengie’ locked files. 


v03-001 LMP0092 Mark Pilan Feat eg om 


Include the FHC 1AB when /$tTE "is specified. Also fix 
the handling of the final error status. 


LIBRARY ‘SYSSLIBRARY: i. 
REQUIRE “SRCS:DiRECTDEF 
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HACKS WORTH NOTING... 


There are several hacks used by DIRECTORY to improve performance 
and to compensate for bugs elsewhere in the system. 


The first is mechanism that allows the file th oad bea requested 

in the RMS XAB blocks to be filled in while performing a SSEARCH 

over the network. If the NAM block attached to the FAB doing the 

SSEARCH has the NOP bit NAMSV_SRCHXABS set, then = XABs 

eytech : to reatoe will have the requested information filled in 
available. 


The next is used by LIBSFILE_SCAN to improve performance. Doing 
@ SSEARCH operation over the network involves a gons iderable 
ammount of stort overhead (to make she connection). Therefore, 
LIBSFILE_ SCAN will only do the network SSEARCH operation if there 
are wildcard characters present (as determined by the previous 
SPARSE). This means that if there are XABs to be filled, and no 
wildcards are present in the filespec, it is necessary to issue 
an explicit SSEARCH (outside of LIBSFILE_SCAN). 


Another hack used here is to not explicitly Link with SECURESHR, 
which contains the format_acl service. Rather, we auto-load it 
using LibSfind_image_symbol only if /acl or /full is present. This 
ives a reduction in activation time in the case we don't need 

0 format any acls. 


The last hack is to make /FULL work with the magtape ACP. There is 
@ bug in the peptepe ACP encountered when doing wildcarding and 
accessing by file name to the same tape drive. The access by name 
causes the magtape ACP to loose the wildcard context, resulting in 
an infinite ie | Yo This is corrected in DIRECTORY by accessing the 
file by “file-1D" even when /FULL is specified, if the device is a 
sequential device. 
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, ar processing routine 

get a "it spec to process 
: le scanning error 
: SHonat | ile error 
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Address of real SYSSFORMAT_ACL 
Output file RMS structures” 


1 
1 
1 
1 
1 
1 
: 
1 ORMAT_ACL_ 
7 : ps oon : SFAB_DECL, 
75 , ' QOUTPUT_RAB is i aret . F.REQ because it is referenced by the SIGNAL macro 
1 
1 
1 
1 
1 
1 
1 
0 1 
1 
1 
8 1 
1 
0 1 
0 1 


i to flush out the S buffers when an error occurs. 


OUTPUT _NAM : SNAM_D 
“Fiamse. MAXRSS], 
NAMSC_"MAXRSSJ; 


EXP_NAM : saBLOCK 
RES_NAM : SBBLOCK 


OuT 
OuT 


EXTERNAL ROUTINE 


va : ADDRESSING_MODE Cee we RAL) « ! Get a qualifier value 

ENT : ADDRESSING_MODE Hb be bayrg i See ‘ qualifier present 
SCAN ADDR ESSING “MODE (GENERA i Search wildcard file spec 

LIBSF IND~ IMAGE _SYMBOL : ADDRESSING (GENERAL) | } lnoge activate 


! Following are the common qualifier scanning routines 
LIBSQUAL _F ILE_PARSE : ADDRESSING_MODE (GENERAL); ! Set up select 
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193 91 ROUTINE DIRSMAIN = 

194 3 

1 9 ‘ee 

1 94 : 

: 95 ' FUNCTIONAL DESCRIPTION: 

1 39 This routine is the main greceesing routine for the DIRECTORY command. 
44 it parses the qualifiers in the command Line to determine what 

nformation is to be displayed for the selected file or files. 


CALLING SEQUENCE: 
DIRSMAIN () 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
none 


oOo 4 or 
ted wr 


So 
oo 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
none 


POPOPORONONINOPON 


BEAN LSSOVRARGN SS SHVP ARAVA OSBUS AR WU ODO 


ROUTINE VALUE: 
The worst error encountered or SS$_NORMAL. 


SIDE EFFECTS: 
none 


bt at 
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RPP PIFIMIPIMIPIPIPDMNINPINPININIDPINDPI|NIN IAI) a a st a tk ad td dt 
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om 
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STATUS, ' Local routine exit status 
CLI_STATUS, ' CLI parse status 
SCAR_CONTEXT, ! filescan context 
1 INPUT AS : re ECL. ! Input file RMS structures 
j INP_ERP_NAM : SBBLOCK MARSC MARRS). 
INP~RES-NAM : SBBLOCK FNAMSC"MAXRSS), 
5 FILE DESC : SBBLOCK LDSCS$C_S_BLNJ, ' File name descr 
38 § VALUE_DESC : SBBLOCK BSCSC_S_BLN . ' Qualifier value 
39 GETOVT_ARGS : VECTOR (7), ! GETOVI argument List 
40 INDEV_CLASS ' Input device class 
41 INDEV~BUF S12, i Input device buffer size 
? 9 XAB_PTR : REF SBBLOCK; ! Pointer to current XAB 
6& § EXTERNAL LITERAL 
45 CLIS_DEFAULTED, ' Value present by default 
" : CLIS_NEGATED; ! Qualifier regated 
48 § EXTERNAL ROUTINE 
49 4 DIRSGET_INFO, ! Get information about a file 


voe=000" HEheecags GEHESHE  Wsta!UAPh ttc odd -05 


DIRSTOTAL, ! Type out per a*eectery fe totals 
DIRSGRAND_ TOTAL, ! }ype out grand tota 

LIBSCVT_DTB : ADDRESSING_MODE (GENERAL ' Convert string eo value 
LIBSGET_VM : ADDRESSING _MODE (GEN NERALD i Allocate dynamic memory 


! DIRECTORY error messages 


EXTERNAL LITERAL 
DIRS_NOFILES; 


! Initialize all variables 
SCAN_CONTEXT = 0; 
QUAL. FLAGS = 0; 

wor TEAR RROR = $s$ NORMAL ; 


CHANNEL = 
en (0, *NANSC pee elie NAME) ; 


PPPS ‘ 
WIN 9 ODBNOAUNE WI OC OONOU FS WOO 


SSIS DSSS SHG 


66 COUNT coc uan NDEX ="CO UMN WIDTH = 0; 
66 ERSION COUNT = ERSION I INDEX = 0; 
PREV_DIR_LEN = sPnevF LEN = 0; 


= 0: 
GR = GRAND_DIRS = 0; 
COLUMA WIDTH = 0; - - 
INDEV. CLASS “Ney 8 BUFSIZ = 0; 


= 
x 

CHSF ICG (0, OS sexe 5 BLN: =" DSCEREE 
bsC$B cc 


UNI SSHUERFERIS SeVenrunoo 


SESSSS 


SN 


e 4 2 VALUE DESC CLASS) = DSC at D; 
96 5 2H HSMOUE. ¢D (DSC BLN, VALUE _D ct PILE. BESC 
6 CHSMOVE (DSCSC £-§ “BLN pest. LINE ~DESC 
967 CINE _DESCCDSCSA_ POINTERI- ~ watt BUFFER: 
8 ! Get the block of memory needed to hold the display information. 


STATUS = j teeett wa (ZREF (DIR_C_LENGTH), DISPLAY_BLOCK); 
my - STATUS 


BEGIN 
SIGNAL (.STATUS); 
RETURN .WORST_ERROR; 


! Initialize all RMS data structures. 


P SFAB_INIT (FAB = INPUT_FAB, ! Init input structures 
a DNA = UPLIT™('e,2;«° 
P DNS = ZCHARCOUNT ('*,@;#*), 

NAM = INPUT_NAM); 
p SNAM_INIT (NAM = INPUT"NAM 
P ESA = INP_ERP_NAM 
bh: het aa 

= 

RSS = NAMSC_MAXRSS) 
P SFAB_INIT (FAB = OUTPUT_FAB ! Init output structures 
P DNA = UPLIT T'DIRECTORY.LIS"), 
P DNS = ZCHARCOUNT ("DIRECTORY.LIS"), 
P FAC = PUT, 


< 
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oa, 12-808- 198 93:78:39 DIR.SRCIDIR See tOn oSec4 
3 P 0705 FOP = $Q0 
; P 07 NAM = OUTPUT_NAM, 
3 7 RAT = CR); 
; 310 P 07 SRAB_INIT (RAB = OUTPUT_RAB 
; 311 7 FAB = OUTPUT-FAB); 
: ig P 07 SNAM_INIT (NAM = QUTPUT“NAM, 
: 1 P 07 ESA = OUT EXP NAM 
> 314 P 07 ESS = NAMSC WAxRSS, 
; 315 P 07 RSA = OUT_RES_N 
: ig g RSS = NAMSC AAXRSS); 
: 18 7 ! Parse the various command qualifiers that may have been given on the 
3 1 i command Line. 
: 1 7 ! First check for any of the common qualifiers to determine what XABs 
: ¢ f i may be needed. 
> 326 ? F CLISPRESENT (SDESCRIPTOR ('BEFORE')) 
; 5 , OR CLISPRESENT (SDESCRIPTOR ("SINCE')) 
: : 07 BEGIN 
; 8 7 QUAL_FLAGSCDIR RV N NEED_DAT) = 1; ! DAT XAB required 
; 329 07 QUAL-FLAGSCDIR-V-COMM—QUAL) = 1; 
3 : o7 END; 
; Q i IF _{LISPRESENT (SDESCRIPTOR ('BY_OWNER')) 
: 7 EN REGIN 
: 5 07 QUAL_FLAGSCDIR RV V_NEED_PRO) = 1; ! PRO XAB required 
: 3 07 QUAL “FLAGSCDIR-V-COMM_QUAL) = 1; 
hoe 1 
: +4 o7 ! Now check for all the display tayloring qualifiers 
; 1 § 3 QUAL_FLAGS(DIR_V_QUAL_ACL] = CLISPRESENT (SDESCRIPTOR (*ACL*)); 
3 ¢ 0740 QUAL SFLAGSCDIR-V-QUAL BRIE) = CLISPRESENT (SDESCRIPTOR ("BRIEF*)): 
: 343 O74) ttl _STATUS "= “QUAL “FLAGSEDIR “V_QUAL_COLU] = CLISPRESENT (S$DESCRIPTOR (*COLUMNS'))) 
: 345 tok eM REGIN 
3 § 74h CLISGET =VALUE (SDESCRIPTOR (*COLUMNS') VALUE pe 
: 745 STATUS = LIBSCVT_DTB (. VALUE _DESCCOSCSW_LENGTA 
3 348 74 . VALUE ~DESCCDSCSA_ “bOINTERS, 
: 349 74 tor “¢ 
3 30 2 Teno! .STATUS OR .COLUMN_COONT LSS 0 
; 2 750 & BEGIN 
>: 35 751 4 SIGNAL (DIRS SYNTAX, 1, VALUE_DESC); 
: 34 ? 3 4 RE Tuan .WORST_ERROR: 
; 36 754 .C COUNT EQL 0 THEN COLUMN. COUNT 
: 4 135 i ta veTR TUS EQL CLIS_DEFAULTED THEN QUAL TELAGSCDIR. V_COLU_DEF) = 
: 359 f If — (QUAL FLAGSCDIR V_QUAL_DATE) = CLISPRESENT (SDESCRIPTOR ("DATE'))) 
; 361 7 § EM REGIN 
; § 760 QUAL FL AGSCDIR_V_NEED_ DAT) = ! DAT XAB required 
: 761 IF CC ISP PRESENT (SDESCRIPTOR (° ‘bate. ALL")) 


sc | 


<9 


On 


-——: 
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THEN gin 
QUAL_FLAGS(DIR_V_DATE_CRE] = 1; 
QUAL-FLAGS(DIR-V-DATE_EXP) = 1; 
QUAL[FLAGS(DIR-V-DATE-MOD] = 1; 
QUAL“FLAGS(DIR-V"DATE-BAK) = 1; 
Ot WIDTH =". COLUMA_WIDTH + 19 # 4; 


BEGIN 
FC CLISPRESENT (SDESCRIPTOR ('DATE.CREATED')) 
NBEGIN 
QUAL FLAGSCDIR_V_DATE CRE] = 
OL URN. WIDTH =". COLUMA “yIDTH : "19: 


END 
IF CLISBRESENT (SDESCRIPTOR ("DATE.EXPIRED')) 


BEGIN 
QUAL FLAGSCDIR_V_DATE EXP] = 
OLUAN WIDTH =". COLUMA_ WIDTH ; *19: 


COOOCOCCOCCCCOCOOoOoOoOoOoooOOo 
ee 
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END 
16 If CLISPRESENT (SDESCRIPTOR ("DATE.MODIFIED')) 
re QUAL SFLAGSCDIR V_DATE_MOD) = 
788 cot OL URN WIDTH =". COLUMA "WIDTH ; “19: 
7390 IF CLISPRESENT (SDESCRIPTOR ('DATE.BACKUP')) 
798 BEGIN 
79 QUAL FLAG GSCDIR R_V DATE BAK} = 

COLUAN_WIDTH =~. COLUMR_ WIDTH ; “19: 

5 END; 
END; END; 
IF (QUAL FLAGSCDIR_V_ QUAL F FD] = ACh ESPRESENT (SDESCRIPTOR ("FILE_ID"))) 


HEN COL th 2h = [COLUAN ie 
Ven. FLAGSCOIR_V_QUAL_FOLL] = CLISPRESENT (SDESCRIPTOR (*FULL"))) 
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404 BEGIN 
QUAL of LAGS DIR_V_NEED_FHC) = QUAL_FLAGSCDIR RV -NEED_DAT] = 1; 
4 QUAL-FLAGS(DIR-V“NEED-PRO] = QUAL_-FLAGSCDIR “V-NEED-SUM) = 1; 
: QUAL. _FLAGSCDIR_V_NEED_JNLJ = 1; 
409 QUAL “fthsstoin. V.QUAL_GRAN) = CLISPRESENT (SDESCRIPTOR (‘GRAND TOTAL »); 
rhe | QUAL"FLAGSCDIR-VQUAL-HEAD) = CLISPRESENT (SDESCRIPTOR ("HEADING')); 
tig ! /PRINTER is checked out of sequence because it may affect how /OUTPUT is 
ot7 ! handled. 
ai? ff (OUAL_FLAGSLOIR_V_QUAL PRIN) = CLISPRESENT (SDESCRIPTOR (*PRINTER'))? 
£13 BEGIN 
418 OUTPUT _F AB pety SPL i ' Spool file when closed. 
$33 SUTPUT FAS FABSV"DLT ! Delete file after printing 
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IF _(CLILSTATUS = QUAL_FLAGSCDIR.V.QUAL_OUTP) = 


PUT FABLFAB 
IF (OUTPUT FABLFAB 
AND NOT .QOAL_FLAGSCB 
THEN 
pw) = UPLIT ( 
FNS] = ZCHARCOUNT (‘SY 


iw STATUS EQL CLIS_NEGATED 


OUTPUT _F ABLF ABSB_FNS 
OUTPUT —F ABLFABSV_SPL 


BEGIN 
OUTPUT. “Het aie eS 
purnur FABLFABSV_DLT 


END; 
If (QUAL_FLAGSCDIR_V_QUAL_OWNE? = CLISPRESENT ( 
BEGIN 
QUAL_FLAGSCDIR_V_NEED PRO} = 


oun. “FLAGSCDIR-V—USE_ID) = 
then FLAGSCDIR_V_QUAL_PROT) = 


CLIGPRESENT (SDE 


BEGIN 
QUAL FLAGSCDIR V_NEED_ PRO) = 
OL URN WIDTH =". COLUMA_ WIDTH ; 93; 


rf cGUAL, FLAGSCDIR_V_QUAL_SECU] = 
BEGIN 

QUAL __FLAGSCDIR_V_NEED_PRO 
QUAL“ FLAGSCDIR-V—QUAL ACL 
COLUMN_WIDTH = .COLUMN_WIDTH + ar ae 
uF ctl shnesent (SDESCRIPTOR ("SELECT") 


= 1; 
= QUAL. Agee DIR. 
LAGSCD 


BEGIN 
MIN_BLOCK = 0; 

MAX"BLOCK = 1073741823: 

IF “TLISPRESENT (SDESCRIPTOR ("SELECT.SIZE.M 


ENOEGI 

QUAL FLAGSCDIR_V_SELE_ SIZE) = 1; 

CLISGET_VALUE TSDESCRIPTOR ('SELE 1 S12 

STATUS = LIBSCVT_DTB (.VALUE_DESC(DSC$W 
. VALUE ~DESCLDSCSA 
MIN_BLOCK); 


£ Syseryie 
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CLISPRESENT (SDESCRIPTOR (*OUTPUT’))) 
fH)) EOL 0 


SSOUTPOT: "Ds 


SDESCRIPTOR (*OWNER'))) 


SCRIPTOR (*OWNER.IDENTIFIER')); 


CLISPRESENT (SDESCRIPTOR (*PROTECTION'))) 


CLISPRESENT (SDESCRIPTOR (*SECURITY'))) 


QUAL _OWNE 
<QUAL~PROT 


ou 
— 
. 


INIMUM_SIZE")) 


SIZE"), VALUE_DESC); 


—_-—— 
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: 47 7 6 IF NOT .STATUS OR .MIN_BLOCK LSS 0 

3 rt f 4 THEN 

: 481 if Hitt (DIRS SINTAK. 1, VALUE_DESC); 

; . ¢ 9 ? RETURN -WORST_ERRO 

: é 1 2 4 QUAL. PLAGSCDIR _V_NEED_ vats = 1; 

; ia} 4 JF _CLISPRESENT (SDESCRIPTOR ("SELECT.SIZE.MAXIMUM_SIZE")) 

; 6 $ 4 GIN 

: 489 4 QUAL FLAGSCDIR y SELE_SIZE) = 1; 

: 490 & 4 CLISGET_VALUE TSBESCRIPTOR ('SELECT.SIZE.MAXIMUM_SIZE"), VALUE_DESC); 
> 491 9 4 TATUS = LIBSCVT_DTB (.VALUE_DESCCDSC$W_LENGTH 

; 49 0890 4 . VALUE -DESCLDSCSA_POINTERJ, 

: 49 0891 4 MAX_BLOCK); 

: 494 9% 4 IF NOT .STATUS OR .MAX_BLOCK LSS 0 

; 695 93 & THEN 

; 496 894 3 BEGIN 

: 49 0895 SIGNAL (DIRS SINTAM. 1, VALUE_DESC); 

; 498 pa96 5 RET URN -WORST_ERR 

; 499 0897 4 END; 

; 500 898 4 QUAL _FLAGSCDIR_V_NEED_ iach 

: 501 99 3 END; 

; $02 0900 : END; 

3; 50? 0901 IF (QUAL_FLAGSCDIR_V_QUAL_SIZE] = CLISPRESENT (SDESCRIPTOR ('SIZE'))) 
3 504 090¢ THEN 

; 505 090 BEG! 

oe 9904 QUAL Nr AGSCDIR_V_NEED_ FHC) = 1; 

; 50 905 CCISPRESENT~ (SDESCRIPTOR SIZE, ALL')) 

; 508 0906 THEN QUAL FLAGSCDIR V SIZE ALL} = 

: 509 090 If CLISPRESENT (SDESCRIPTOR ( S17. ALLOCATION" )) 

; 310 0908 THEN QUAL _F CDIR V SIZE ALLO 

: 511 0909 IF CLISPRESENT (SDESCRIPTOR (°S1ZE.USED")) 

: 31 0910 THEN QUAL_FLAGSCDIR_V_SIZE_USED) = 1; 

: 514 O9t@ QUAL _FILAGSCDIR_V_QUAL Tort) = CLISPRESENT (S$DESCRIPTOR C "TOTAL')); 

: 515 091 QUAL “FLAGSCDIR-V Teal STRAI] = CLISPRESENT (SDESCRIPTOR (*TRAILING')); 
: 16 991% F_ (QUAL _FLAGSCDTR_V_GUAL_VERS) = CLISPRESENT (SDESCRIPTOR ( C VERSIONS") )) 
: 518 0916 eM REG IN 

: 519 091 CLISGET_VALUE (SDESCRIPTOR ("VERSIONS*!, VALUE DESC); 

; 520 918 STATUS = LIBSCVT_DTB (.VALUE_DESCCOSCSW_LENGTH 

; 1 919 “VAL UE DES¢ DSCSA~ eee TERS. 

3 § 920 VERS COUNT); 

i 983 9 1 IF NOT . ~STATUS OR .VERSION_ ORAS LEQ 0 

: 5 9 4 ra BEGIN 

: 5 924 & SIGNAL (DIRS SINTAK. 1, VALUE_DESC); 

3 5 4 RETURN -WORST_ERRO 

3 9 $ oe: END; 

3 3 § Hen FLAGSCDIR_V_QUAL_WIDT) = CLISPRESENT (‘SDESCRIPTOR ("WIDTH"))) 
; 9 

; i : eat ET_VALUE (SDES CRIPTOR (*WIDTY..DISP Lay yALUE DESC); 

: 5 932 TATUS = LIBSCVT_DTB (.VALUE_DESCCOSC$W_L ata 
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$42 -Sep- 
14-Sep- 


Ph he ty: DESCCOS 
LAY_WIDTH); 
Roy -STATUS OR DISPLAY ‘UIT LSS 0 


BEGIN 
SIGNAL (DIRS SINTAK. , VALUE_DESC); 
RETURN .WORST_ERRO 
CLISGET’ VALU meestnerres ("WIDTH FILENAME’), VALUE_DESC); 
STATUS = LIBSCVT_DTE (VALUE DESCEDSC LENGTH 
. VALUE ~DESCCOSCSA_POINTERI, 
FILENAME WIDTH); 
if uot «STATUS OR .FILENAME_WIOTH LSS 0 leeene 
BEGIN 
SIGNAL (DIRS SINTAK 1, VALUE_DESC); 
RETURN .WORST_ERROR 
1F FIDENAME WIDTH EOL_0.THEN FILENAME WIDT Leeene 
CLISGET_VALUE (SDE SCRIPTOR (" WIDTH OWNER de “VALUE. * DESC); 
STATUS = LIBSCVT_DTB (.V LUE _DESCEDSCSW_ 
‘ ALUE CDE SCDSCEA- bere TeRd. 
IF NOT .STATUS OR .OWNER_WIOTH LSS'O leenee 


“BEGIN 
SIGNAL (DIRS SYNTAX, 1, VALUE_DESC); 
RETURN .WORST_ERRO 


END; 
OWNER_WIDTH EQL 0 THEN OWNER 


1980 {3:19:31 


CSA_POINTERI, 


'eeent 


IF . WIDTH = 20: leeeee 
CLI$G “Py UE (SDES SCRIPTOR "WIDTH.SIZE"), VALUE_DESC); 
STATU poSSEN_LEneTH 
CCDSCSA-POINTER), 
wIpT 
0 ‘aenee 


IF NOT .STATUS OR .SIZE *UIBTH LS 
THEN 
BEGIN 
SIGNAL (DIRS SYNTAK, 1, VALUE_DESC); 
a lune -WORST_ERR 
i: Stk _WIDTH EQL 0 THEN SIZE_WIDTH = 6; 


! Open the specified output file/device. 
STATUS = SCREATE (FAB = OUTPUT_FAB); 
IF ATUS 


Fit E ERROR RRR OPENOUT, OUTPUT_FAB); 
-@ORST_ERRO 


= SCONNECT (RAB = OUTPUT_RAB); 
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ATUS = LIBSCVT_DTB (.VALUE_DESC 
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; 59 990 RETURN .WORST_ERROR; 
3 3? 14 END; 
3 95 938 ! Determine the width of the output device. 
3 3 995 IF _ .(OUTPUT_FABCFABSL_DEV])<SBITPOSITION (DEVSV_TRM), 1> 
; 598 936 nae 
3 99 99 
; 600 238 StL 0, 4, GETDVI_ARG 
; 601 GETD VI_ARGS(0) = DVIS, DEVCLASS“16 OR 4; 
; 60 1000 GETDVI- ARGS ' = INOGY CLAS 
; 603 100) GETDVI-ARGS(3) = DVI pPEvout $12*16 OR 4; 
3 ope 1OR6 GETOVI- “ARGS(4) = INDEV BUF 
: 606 P 1004 STATUS = SGETDVI (DEVNAM = seriteabred (*SYSS$OUTPUT'), 
; 607 1005 ITMLST = GETDVI_ARGS); 
; 608 1208 If NOT .STATUS 
; 609 100 THEN 
; 610 1008 4 BEGIN 
; 611 1009 4 SIGNAL (.STA 
: 612 1010 4 RETURN (sonst UERROR: 
; 61 1011 END; 
3; 6146 1olg END; 
3 615 101 IF .DISPLAY_WIDTH EQL 0 
: 616 1014 THE 
s 61 1015 BEGIN 
; 618 1g IF . INDEV_CLASS = ocs diye ee INDEV_BUFSIZ = 132; 
; 619 101 DISPLAY_WIDTH = .INDEV_6uF 
ic: et ee 
; 6 § 1020 ! If the number of columns is defaulted and an information qualifier is 
: ° \p 1 ! specified, set the column count to 1. 
3; 625 10 j IF (QUAL FLAGSCOIR V_QUAL_DATE] OR gQuAL FLAGSCDIR V_QUAL_0O 
; 6 § 1024 OR OAL. LAGSCBIR_v GOAL PROT] QOAL_FLAGSCBIR v GOAL 
3; 6 1025 OR .QUAL-FLAGS(DIR- v70 bf 10) oR RNat AbOAL APLAGSCBIR bag? tezaD)) 
; 628 10 g AND QUAL MCAGSCOIR- ve tocu.p 
; 6 4 19 THEN "COLUMN _C 2°13 
3 ° 1 13 : ! Check to see if XABs are needed to gather information. 
s$ 6 ¢ 18 1 IF .QUAL_FLAGSCDIR_V_NEED_FHC] 
; 6 1 ¢ THEN 
; 635 1 BEGIN 
3; 6 1034 IF ar eet XAB EQL 0 
; § 1035 THEN FIRST _X XAB_PTR = IN FO_XABEHC 
3 ° ; ' ELSE (XAB_ BTR XABSL BaKT) = INFO_XABFHC; XAB_PTR = INFO_XABFHC); 
3; 640 1 IF -GUAL _FLAGSCDIR_V_NEED_DAT] 
3: 641 1 TH HEN 
3 666 1 BEGIN 
; 66 1 IF of 10st XAB EQL ule 
3 666 1 THEN FIRS RST xk = INFO_XABDAT 
; os : cise (XAB_ PTR XABSt teaKTS = INFO-XABDAT; XAB_PTR = INFO_XABDAT); 
3 re] 1 IF QUAL _FLAGSCDIR_V_NEED_PROJ 
; 648 1 THEN 


SA slice SPE SEN de ee Sie ee EES Le ake = 


1 
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; 649 10467 BEGIN 

; 6 9 1 : FIRST pras.e EQL a5 

3; 8 1 HEN FIRS S = INFO_XABPRO 

; ? § ' gL se (KAS Tet AEXABSL teat = INFO-XABPRO; XAB_PTR = INFO_XABPRO); 

; 6 4 ; If, QUAL. FLAGSCDIR_V_NEED_SUM) 

: 6 § 1054 BEGIN 

3; 6 1055 IF FIRST XAB Eau aA 

3; 6 8 1 28 THEN FIRST_X = IN FO_XABSUM 

3 022 : 5 ity (AB. PTR XABSL teaKTS = INFO_XABSUM; XAB_PTR = INFO_XABSUM); 

3 661 ! 36 IF; QUAL FLAGSCDIR_V_NEED_JNLI 

: £0 1061 EGIN 

: 664 1 Q IF .FIRST_XAB EQL 0 

3; 665 1 THEN FIRST_XAB = XAB_PTR = INFO_XABJNL 

; 666 1 ELSE (XAB_PIRCXABSL_AXT] = INFO-XABJNL: XAB_PTR = INFO_XABJNL); 

3; 66 1065 INFO_XABJALCXABSL_ATA) = DISPLAY BLocKtDIR_ T_AI_NAME);~ 

: 668 1966 INF O_XABJNLEX m = XABSC_MAXJNLNAM 

; 669 1 INFO-XABUJNLEXABSL-BIA) = DISPLAY aiockt Din, T_BI_NAME); 

: 670 1068 INF JNLCXABSB_ = XABSC_MAXJNLNA 

; 671 1069 INFO-XABJNLCXABSL_ATA] = DISPLAY BLOCKCDiR. T_AT_NAMEJ; 

3 ore 1379 peou _XABJNLCXABSB_ATS) = XABSC_MAXJNL 

3 67% 107 

; 675 1978 ! At this eetet all of the qualifiers have been parsed. Now determine the 
; 676 1074 ! column width and the maximum number of columns that can be printed given 
3; 677 1075 ! specified (or default) display width. This value is minimized with the 
3 ore : 6 i value given on the /COLUMN qualifier. 

; 680 1078 COLUMN_WIDTH = .COLUMN_ WIDTH ¢ .FILENAME WIDTH + 1; 

3; 681 107 IF .QUAL miettiists V_QOAL_OWNE] THEN COLOMN_WIDTH = .COLUMN_WIDTH * .OWNER_WIDTH + 2; 
; 68 1080 IF -QUAL-FLAGSCDIR-V—QUAL_SIZE 

: 684 108 "BEGIN 

3 ©6685 1 es IF .QUAL_FLAGSCDIR_V_SIZE_ALL] 

3 686 1 THEN COLOMN_WIDTH = [COLUAN_WIDTH + .SIZE_WIDTH * 3 +2 

; of : 86 ELSE COLUMN-WIDTH = .COLUMN_-WIDTH + .SIZE"WIDTH + 2; 

: 689 19 IF (.QUAL_FLAGSCDIR_V_DATE_CRE] OR .QUAL_FLAGSC(DIR_V_DATE_MOD) 

; 690 1 8 OR .QDAL_FLAGS(BIR_V_DATE_EXP) OR .QOAL_FLAGSCBIR_V_DATE BAK) 

3 691 1 OR .QUAL“FLAGS DIR-V-QUAL _OWNE} OR .QUAC_FLAGSCDIR_9_QUAC_PROT) 

3 634 ' , en -QUAL-FLAGSCDIR-V-QUAL_SIZE] OR .QUAL-FLAGSCDIR-V—QUAL—FIDJ) 

: 69% 1 ; BEGIN 

3: 695 1 COLUMN_WIDTH = .COLUMN_WIDTH ¢ 4; 

: O08 ' : COLUAN-COUNT = INU (. COLURN.. COUNT, (.DISPLAY_WIDTH + 4) / .COLUMN_WIDTH); 
; 698 1 ELSE COLUMN_COUNT = a NU (.COLUMN_COUNT, .DISPLAY_WIDTH / .COLUMN_WIDTH); 
3 444 ! i IF .COLUMN_COUNT LEQ 0 OR .QUAL_FCAGSCO{R. V_QUAL_ACL THEN COLUMN-COUNT = 1; 
: 701 1 ! LIBSQUAL_FILE_PARSE is going to parse the common qualifiers. it sets up 
; 4 ¢ a i @ data base which describes the results for LIBSQUAL FILE_MATCH to use. 
: 7 " g STATUS = LIBSQUAL_FILE_PARSE (ZREF (LIBSM_CQF_BACKUP OR 


705 LIBSM"CQF"BEFORE OR 
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IF .QUAL_FLAGSCDIR V_QUAL_FULLJ 

-GUAL_FLAGSCDTR_v_GUAL_ACLJ 

THEN BEGIN 
STATUS = LIBSF IND_ IMAGE _SYMBOL (SDESLAIPTOR 


SECURES 
RIPTOR('SYS$ 


ECURESHR') , 
FORMAT_ACL) ,FORMAT_ACL_ADDR); 


If NOT .STATUS 


1 é 
7 LIBSM_CQF_CREATED OR 
7 5 LIBSRCOF EXCLUDE OR 
7 LIBSM—CQF"EXPIRED OR 
7 LIBSM"COF-MODIFIED OR 
710 LIBSM~COF-SINCE OR 
71) LIBSM"CQF “BYOWNER 
ar ), CMR_QUAL_CTX); 
71 IF NOT .STATUS 
714 THEN 
715 BEGIN 
16 SIGNAL (.STATUS); 
71 RETURN .WORST_ERROR; 
rs END; 
720 CLISGET_ VALUE (SDESCRIPTOR ("INPUT"), FILE_DESC); 
721 INPUT ERBCFABSL _FNA z FILE DESCEDSESA POINTER; 
, 3 INPUT~FABLFABSB_FNS) = .FILE-DESCCOSCSW-LENGTHI; 
724 ' 
725 ! If /FULL or cat then image activate SECURESHR, which contains 
g $ i the routine SYSSFORMAT_ACL. 
7 
759 
7 
, 1 
738 
7 
735 
7 
7 
7 
7 


a a a a na 8 a a tt a a at a a a 2 2 ss 
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4 THEN BEGIN 
4 SIGNAL (.STATUS); 
4 RETURN .WORST_ERROR; 
END; ; 
my ! Process each file specification specified in the command Line. 
7% dO 
i BEGIN 
745 ! The pot loxtng is a KLUDGE to get the XAB information across the network. 
74 ! If the NOP field of the NAM block has the SRCHXABS flag set, then any 
Sy ! KMABs (supported by the DAP protocol) connected to the FAB are filled in. 
74 IF .QUAL_FLAGS(DIR_V_NEED_FHC] OR .QUAL_FLAGS(DIR_V_NEED_DAT 
750 OR .QUAL“FLAGS(DIR-V"NEED-PRO) OR .QUAL~FLAGSCDIR—V-NEED_ SUM 
751 OR .QUAL_FLAGSCDIR_V_NEED_JNL 
7 § THEN 
7 4 BEGIN 
7 4 INPUT_NAMCNAMSV_SRCHXABS) = 1; 
4 5 6 INPUT_FABLFABSL_XAB) = .FIRST_XAB; 
7 e 
7 3 LIBSFILE_SCAN (INPUT FAB, 
7 DIRSGET INFO ' File found action routine 
760 DIRSINPOT ERROR, ' Input error action routine 
re) on SCAN_CONTEXT); ! Context for stickyness 


76 61 
ree 
re e 
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UNTIL NOT DIRSGET_FILE(INPUT_FAB); 


“Toth DESCCDSCSW_LENGTH)] GTR O THEN DIRSOUTPUT (0, LINE_DESC); 
1. # FILES NEQ’O THEN DIRSTOTAL (); 


fF. 
if ce 
OR .Q UAL A FLAGSESIR. V “a GRAN) 
HEN DIRS 
1 
a 


Ax-11 Bliss oe V4.0=74 
DIR.SRCIDIRECTO 


GRAND “TOTAL 


f no ustos be nay been selected, and no other errors have occurred, return 
status o _FNF instead of success. 


eg net ee AND NOT .QUAL_FLAGSCDIR_V_FILE_FOUND) 


! Display grand totals 


BEGIN 

SIGNAL (DIR$_NO nS FA 

WORST_ERROR = WORMS FNF AND NOT STSSM_SEVERITY) OR STSSK_WARNING 
OR STSSM_INHIB_MSG; 


STATUS = SCLOSE (FAB = OUTPUT 
IF NOT .STATUS THEN DIRSFILE TERROR’ (DIRS_CLOSEOUT, OUTPUT_FAB); 


RETURN .WORST_ERROR; 


END; ! End of routine DIR_MAIN 
-TITLE DIRECTORY 
-IDENT \Vv04-000\ 
-PSECT GIRSCOMMON,NOZXE, OVR,0 
00000 QUAL FLAGS: 3 
00008 COLUMN -cOUNT: ‘ 
O0000C COLUMN, at 4 
00010 COLUMN_WiDTH: 
BLK 4 
00014 WORST_ERROR: 
-BLKB 4 
00018 eae 1 ‘ 
0001C DISPLAY_BLOCK: 
-BLKB 4 
90020 CHA CHANNEL : BLKB 4 
oan, 16 
00034 LINE pests 8 
0003C LINE “Burien: 
-BLK 1024 
0043C TOTAL USED: 4 
00440 TOTAL “ALLOt: 
-BLKB 4 


1 
RY .832; (4). 
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00444 TOTAL_FILES: 
00448 GRAND USED: 
0044¢ GRAND ALLOC: 
00450 GRAND_FILES: 
00454 GRAND DIRS: 
00458 PREV_DIR: - 
$088 PREV_DIR LEN: 
0055¢ PREV_FILE: 


w 
“ww 


LKB 
00658 -BLKB 
065C PREV_FILE LEN: 
00660 VERSION_COUNT 
00664 VERSION. INDEX: 
00668 FIRST_XAB: 
~BLKB 
22 0066C INFO_XABJNL: 
BYTE 


4 
2 
1 
4 
4 
4 
4 
° 34 
3¢ 00660 “BYTE 60 
9000 00665 “WORD 0 
00000000 006 “LONG §60 
0000 00674 i 0 
0000 00676 “WORD 0 
067 -BYTE 8 
067 “BYTE 
0000 0067A “WORD 0 
00000000 0067¢ “LONG 
00 006 “BYTE 
99 90681 “BYTE 
00 06 2 “WORD 0 
0000000 6 “LONG 
06 BYTE 
6 -BYTE 
00000000 006 “TONG 
6 “BLKB 26 
16 AB INFO_XABSUM: 
-BYTE $$ 
ag “BYTE 
90 AA - WORD 
0000 A “LONG 
B “BYTE 
B “BYTE 
00 B2 : WORD 
B4 INFO_XABPRO: 
BYTE 19 
58 00685 “BYTE 8 
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12-08-1938 93:78:38 DIR. SRCIDIRECTORY.B32; 
7A -BYTE C2) 
th » LONG 
7A8 - LONG 
7A LONG 
7 LONG 
784 ~ LONG 
788 - LONG 
# 0078C »LON C2) 
7C& INFO_FAB: 
-BYTE 
7¢5 -BYTE 0 
90 ite «WORD 
100 7C - LONG 6777216 
000 7C ~LONG 
0 . 70 - LONG 
0 704 ~LONG 
0 708 -WORD 
0 7DA .BYT 
4 708 -BYT 87 
0000000 07D - LONG 
38 ore -BYTE 
7E1 BYTE 
preg -BYTE 
7E BYTE 
600008 O7E4 . LONG 
000000 7E8 . LONG 
00000000' pret -ADDRESS INFO_NAM 
ae O7F -LONG 0 
000000 O7F4 - LONG 
8 o7re -BYTE 
O7F BYTE 
000 O7FA - WORD 
0000000 C7FC . LONG 
000 3 -WORD 
0 0 -BYT 
4 080 -BYTE 
0000000 ete LO 
0005000 boBoe 
; O80E 
O80F ‘ 
00000000 00810 - LONG 
0814 DISPLAY_WIDTH: 


-BLKB 
00818 FILENAME WIDTH: 
0081¢ OWNER WIDTH: 
00820 SIZE_WIDTH: 
.BLKB 
00824 MINBLOCK: | 
00828 MAX BLOCK: 
0082¢ ACL LENGTH: 
00830 OUTPUT_RAB: 
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-BLKB 68 
«PSECT SPLITS,NOWRT ,NOEXE 2 


attsh \#,@:#\<0><0><0> 
SASCII = \DIRECTORY.LIS\<0><0><0> 


\BEF ORE\ 


«LONG 
eADDRESS P.AAD 
eASCII = \SINCEN 
-BLKB 


“LONG 
“ADDRESS. P. AAF 
“ASCII \BY_OWNER\ 


«LONG 
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eASCIIT \ACL\ 
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~LONG 7 
«ADDRESS P.AAN 
eASCII = \COLUMNS\ 
-BLKB 1 

-LONG 7 
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eASCII \DATE’ 
«LONG ‘. 
eADDRESS P 
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ADDRESS P.ABF 
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“ADDRESS P.ABJ 

“ASCII. \PRINTER\ 

BLKB 

“LONG 7 

ADDRESS P.ABL 

“ASCII OUTPUT\ 
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«ADDRESS P.ABN 
eASCII = \OUTPUT\ 
-~BLKB 2 


LON 

ADDRESS P.ABP 

ASCII 2 fet wre tna 
eASCII \NL:\<0> 

eASCII \OWNER\ 

-BLKB 

~ LONG 

eADDRESS P.ABT 

ASCII \OWNER.IDENTIFIER\ 
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eADDRESS P.ABX 
eASCII =\SECURITY\ 
«LON 

eADDRESS P.ABZ 

eASCII = \SELECT\ 

-BLKB 

«LONG 

«ADDRESS P.ACB 

eASCII] \SELECT. SIZE .MINIMUM_SIZE\ 
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P.ACJ: 
P.ACI: 
P.ACL: 

K: 


P.ACN: 
M: 


P.ACP: 
P.ACO: 
P.ACR: 
P.ACQ: 
P.ACT: 
P.ACS: 


P.ACV: 
P.ACU: 


P.ACX: 
P.ACW: 


P.ACZ: 
CY: 


EA SFASESASTS 
v vo 


P.ADB: 
P.ADA: 
P.ADD: 
P.ADC: 
P. ADF: 
P.ADE: 
P.ADH: 
P.ADG: 
P.ADJ: 
P.ADI: 
P.ADL: 
4 P.ADK: 
5 P.ADN: 


OPN ROMO OND FOUR FOR Fr OM ROW ROC BROS 
vw 


ye Bliss-32 V4.0-74 
DIR. SRCIDIRECTORY.832; 


eASCII = \SELECT.SIZE.MAXIMUM_SIZE\ 
-LONG 24 
eADDRESS P.ACJ 
eASCIIT \SIZEN 
«LONG 4 
eADDRESS P.ACL 
eASCIIT \SIZE.ALL\ 
-LONG §=8 
sADDRESS P.ACN 
eASCIE = \SIZE.ALLOCATION\ 
-BLKB 1 
-LONG 15 
eADDRESS P.ACP 
eASCII = \SIZE.USED\ 
-BLKB 3 
NG 

eADDRESS P.ACR 
eASCII = \TOTAL\ 
-BLKB H 
«LONG 
eADDRESS P.ACT 
eASCIIT = \TRAILING\ 
LONG 8 
«ADDRESS P.ACV 
eASCII = \VERSIONS\ 
LONG 8 
eADDRESS P.ACX 
eASCII = \VERSIONS\ 

ONG 8 
eADDRESS P.ACZ 
eASCII = \WIDTH\ 
-BLKB 
«LONG 
eADDRESS P.ADB 
eASCI] = \WIDTH.DISPLAY\ 
-BLK 3 
-LONG 13 
eADDRESS P.ADD 
eASCIIT = \WIDTH.FILENAME\ 
»LONG i 
eADDRESS P.ADF 
eASCIT = \WIDTH.OWNER\ 
-BLKB 1 
-LONG 11 
eADDRESS P.ADH 
eASCIT = \WIDTH.SIZE\ 
-BLKB ; 
-LONG 0 
eADDRESS P.ADJ 
eASCII = \SYSSOUTPUT\ 
-BLKB ; 

ONG 0 


“ADDRESS P.ADL 
“ASCII | \INPUT\ 
KB 3 


re 


15 
DIRECT 1%. $ep-1984 :38: AX-11 Bliss-32 V4.0-74 P 3 
von sees ali DIR. SRCIDIRECTORY.B32; me (5 
Bo9p0006" 36 PeAOM: OMe ssp 
52 48 53 45 52 55 43 & é P.ADP: a SECURESHR\ : 
SHUEY. REED PAO ARF ap , 
4C 43 41 SF 54 41 4D 52 4F 466 24 53 38 78 P.ADR: ah \SYSSFORMAT_ACL\ : 
90000006 P.ADQ: LONG 14 : 
00000060' C .ADDRESS P.ADR : 
.PSECT SOWNS,NOEXE,2 
00000 FORMAT_ACL ADDR: | 
00004 OUTPUT FAB: " 
00054 OUTPUT_NAM: 
BL 96 
00084 OUT_EXP_NAM: 
-BLK 255 
00183 .BLKB 
001B4 OUT_RES_NAM: 
-BLKB 255 
SRMS_PTR= OUTPUT FAB 
$RMS_PTR= OUTPUT 
- $RMS"PTR= OUTPU “Nan 
-EXTRN CLISGET vane CLISPRESENT 
-EXTRN LIBSFILE_SCAN, LIBSFIND_IMAGE_SYMBOL 
XTRN LIBSQUAL FILE Ph 
~EXTRN CLIS DEFAULTED b1sbteree NEGATED 
-EXTRN DIRSGET_INF 
eEXTRN DIRSGRAND 8 o 
-EXTRN LIBSCVT_DTB tIBSGET va 
“EXTRN DIRS NOFILES, 1BSSIGNA 
-EXTRN SYSSFLUSH, SYSSWAIT 
TEXTRN SYSSCREAT Ate, SY SSCONNECT 
-EXTRN SYSS$GETDVI. SYSSCLOSE 
-PSECT S$CODE$,NOWRT,2 
OFFC 00000 DIRSMAIN: 
; . WORD ave R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11 : 0591 
58 9 O° CF 3E 00 MOVAB PTR, R11 : 
A . ff MOVAB R10 3 
39 000000006 00 O¢ ROVAB fis ae? : 
38 000000 ef i MOVAB QUAL EL : 
£ FD14 = CE : A MOVAB : | 
0c ar D 1F CLRL = SCAN eth : 0660 
6 D4 2 CLRL QUAL |F AGS : 0661 | 
16 As 1 00 4 MOVL gonst “ERROR ; ¢ 
20 AB D4 8 CLRL_ CHANNEL 3 066 
10 00 ry ‘ : C MOVCS #0, (SP), #0, #16, DEVICE_NAME ; 0664 
bc AB 7C CLRQ = SOLUMN_INDEX : 0665 
8 <A8& 04 000 CLRL COLUMNCOUNT ; 
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0830 
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0830 
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07 
03 
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57 10000000 
6€ 
8 
AD 500 
AD 
AD 
AD FFSO 
AD 
AD 
6€ 
FF50 
cD 6002 
cD 
cD 3¢ 
cod 
CD 0135¢ 
6E 
68 5003 
AB 40 
AB 
AB 0202 


SESSA STRESS 


2» oo 
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OoOoe NN OS WONOPM 
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LSet aH witlalsnctat: fi 


4 
4 f DIR. SRCIDIRECTORY.B32; 
CLRQ = VERSION COUNT 
CLAL PREV_FICE_ LEN 
CLRL  PREV“DIR_CEN 
CLRO =—-:s TOTAC_ALCOC 
CLRL TOTAL“USED 
CLRO AND-FILES 
CLRO RAND USED 
CLAL LUMA _WIDTH 
CLRO —sINDEV_CLASS 
CLRL pT 
CLRL FARSI XAB 
MOVCS #0, (SP), #0, #8, VALUE_DESC 
MOVB_ #2, VALUE_DESC+3 
MOVC3 #8, VALUE-DESC, FILE_DESC 
MOVC3 #8, VALUE-DESC, LINE-DESC 
MOVAB LINE_BUFFER, LINE_DESC+4 
PUSH DISPLAY ¢ 
MOVZWL #459, 47 
PUSHAB 4(SP5S 
CALLS #2, LIBSGET_VM 
MOVL RO, STATU 
BLBS STATUS, 4 
PUSHAB OUTPUT RAB 
CALLS #1, SYSSFLUSH 
PUSHAB OU 
CALLS #1, SYSS$WAIT 
PYSHL STATUS 
CALLS #1, L1B$S1GNAL 
116 TATUS, # 
BEQL 
EXTZ2V. #0, #3, STATUS, RO 
CMP ZV #0; #3, WORST_ERROR, RO 
BISL3 #268435456, STATUS, WORST_ERROR 
MOVCS #0, (SP), #0, #80, SRMS_PTR 
MOV #20483, SRMS_PTR 
MOVB = #2, $ S_PIRE¢¢ 
MOVB #2, $RMS~PTR+31 
MOVAB INPUT_NAM, SRMS_PTR+40 
MOVAB P,AAA, SRMS_PTR? 
MOVB “3, SRMS_PTR+53 
MOVCS #0. (SP)> #0, #96, SRMS_PTR 
MOVW #24578, SRMS_PTR 
MNEGB #1, SRMS PIRe 
MOVAB _RES_RAM, SRMS_PTR*4 
MNEGR #1, “S$RMS_PTR+10 
VAB INP_EXP_RAM, SRMS_PTR+12 
movcS #0,~(SPT, #6, #807 SRMS_PTR 
Vw #20483, SRMS_PTR 
MOVZBL #64, SRMS_PTR+4 
MOVB #1, S$RMS_PTR+22 
Move #514, $RAS_PTR+30 


0686 
0694 


0699 


0707 


DIRECTORY 

v04=600 
0044 = =8F 
0060 8F 


68 


68 


68 


01 


01 


01 


01 


AB 5 AB 
$3 as 
AB 8 
= 0830 3 

0830 ¢ 4401 aF 
oBec «CC 68 
6E 00 
50 0 AB 

28 AB 6002 er 
AB 1 
4 AB 0180 8 

A AB 1 
C AB 0080 CB 
20 =A 

69 9% 
09 0 
30 = AA 

69 01 
06 50 

03 AB 0240 8F 
40 AA 

69 01 
06 50 

03 As 0440 + 8F 
4C AA 

69 9 
00 0 

5C AA 

69 01 

01 50 

6C AA 

69 01 

0 50 

5 50 

40 50 

C AE 

C AA 

000000006 00 0 
8 A 

4 AE 

7E 4 at 

000900006 00 
57 ! 
03 

039 

08 A 

4 

68 A8 1 
00000000G 8F g 
03 ABs F 
old fh 

69 1 
0 0 
6 0 


i 


*PWwOOW Oe -— 
=z 
Oo 
<= 
o 
wn 


oO 
usee> 
— 

= 


soc 


NAMM MWMMMMMOOCOSCVOOOOWWWIWIr>r>r P PoO;Oo pat +p tet Wr & & 
ov 
r>C 
rw 
vg 


10$: CMPL 


11$: PUSHAB 


mn" O00 0 9 “FWUIMS MWS ONOOMS VMNOVWMNOMMNOPMMOPMOMMOODOOOD wow wooo 
DOD MONON OU" DOT NG "D4 OOOD*OW “OM "WOWOI "WOW "WOW =MMMMNoS ONS MPom 


OOQCQOOCOOOOOCOOOOCOOOOOOOOOOOOOOOSOOOOOOSOOOOOOOOOOOOOOOOOOOOO 


nn eww www www lw a ln nln lalallala lo lolololololelololololeoleolelolelolelolololalololola ole a: 


i tt ee er a ee er er er a er ee er ee er er er er er er er ee er er er er er ee 


rs 

ons 
— 
nw” 


38 YAX-11 Bliss-32 V4.0-742 Page 3 


DIR.SRCJDIRECTORY B32; 1 


OUTPUT_NAM, SRMS_PTR+40 
AAB, “$RMS_PTR+Z8 
#i3, $RMS_PTR+53 


#0, (SP),"#0, #68, SRMS_PTR ; 0709 
#17409, SRMS_PTR : 
OUTPUT FAB, SRMS_PTR+60 : 
#0, (SP), #0, #98, SRMS_PTR $ 07146 
#24578. SRMS_PTR : 
#1, $RMS PTR : 
out Res RAM, $RMS_PTRe4 : 
#1, °S$RMS_PTR+10 ; 
OUT _EXP_RAM, SRMS_PTR+12 : 
P.AAC 3; 0722 
i, CLISPRESENT ; 
RO, 5$ 3 
AAE + 0723 
#i, CLISPRESENT : 
#576, QUAL_FLAGS+3 ; 0726 
P.AA ; 07350 
#i, CLISPRESENT ; 
#1688, QUAL_FLAGS+3 : 0733 
. ; 0739 
#i, CLISPRESENT ; 
RO, #0, #1, QUAL_FLAGS ; 
r. ; 0740 
#i, CLISPRESENT ‘ 
RO, #1, #1, QUAL_FLAGS : 
P.A 3; 0741 
#i, CLISPRESENT ; 
; #2, #1, QUAL_FLAGS ; 
RO. CLE_STATUS : 
VALUE _DESC > 0744 
AA ; 
#2, CLISGET_VALUE F 
COLUMN_ COUNT : 0745 
VALUE _BESC+4 > 0746 
VALUE Dest -(SP) > 0745 
#3, LTBSCVf_pTB ; 
0 StATyS : 
TATUS, : 0748 
COLUMNCOUNT : 
10$ : 0754 
#1, COLUMN_COUNT ; 
rex #CLIS_DEFAULTED > 0755 
#128, QUAL_FLAGS+3 : 
“ 0757 


P.AA 
ei, Cl ISPRESENT 
RO, #3, #1, QUAL_FLAGS 
RO, 16$ 


Bases SE ee ae et ene 


1 
DIRECTORY 1.56 -1984 23:38: AX-11 Bliss-32 v4.0-74 Pa 6 
|vO4=000" 12-08-13 93:78:39 YOIR.SRE DIRECTORY .B32: - df 
046 AB 02 88 0021F BISB2 #2, QUAL_FLAGS+4 : 0760 
0098 CA 8 ; PUSHAB P.AAS ~ : 0761 
69 1 Fe CALLS #i, ; SPRESENT : 
es 0 FS . Beso 8540. QUAL_FLAGS * 0767 
10 A8& 0000004C af cb 1 ADDL2 #76, COLUMR_WIDTH > 0768 
46 9 BRB 16$ : 0761 
ONAC A oF B 12$: PUSHAB P,AAU 3; 0772 
69 1 FB F CALLS #1, CLISPRESENT : 
07 é 0 4 BLBC 3—Os«RO. : 
8 1 é 4 BISB2 #16, QUAL FLAGS : 0775 
10 AB 1 ‘ 0 4 ADDL2 #19. COLUMN_WIDTH : 077% 
00cO «CCA ODF 4C 138: PUSHAB P.AAW : 077 
69 o1 Fe 0 ; CALLS #1, CLISPRESENT : 
$B 8 Es 058 oies2 983, GUAL_FLAGS > 0781 
10 As #8 £0 0 38 ADDL #19, COLUMN_WIDTH : 0782 
00D8 CA 9F 0025D 14$: PUSHAB’ P.AAY > 0784 
69 1 FB 0261 CALLS #1, CLISPRESENT : 
08 0 E 00264 BLBC =—._s«aRO.‘*T ; 
63, 40 BF &8 99 67 BISB2 #64, QUAL_FLAGS : 0787 
10 a8 13 £0 0268 ADDL2 #19, COLUMN WIDTH : 0788 
OOEC CA SF 00 oF 15$:  PUSHAB P.ABA : 0790 
69 or FB 00273 CALLS #1, CLISPRESENT : 
08 0 £9 00276 BLBE RO. 168 : 
68 80 BF 8 00279 B1SB #128, QUAL _FLAGS + 0793 
10 «AB 13 CO 0027D ADDL2 #19, COLUMN_WIDTH : 0794 
OOFC CA SF 00281 168 PUSHAB P.ABC : 0798 
69 01 FB 00285 CALLS #1, CLISPRESENT : 
01 «AB 01 00 50 FO 00288 INSV RO, #0, #1, QUAL_FLAGS+1 : 
04 50 €9 00 A BLBC : 
10 A8 15 ¢€0 0029 ADDL2 #21, COLUMN_WIDTH : 0799 
0108 CA SF 00295 17$:  PUSHAB P. + 0800 
69 o1 FB 00299 CALLS #1, CLISPRESENT ; 
01 «AB 01 01 0 F 00 9 INSV RO. #1, #1, QUAL_FLAGS#1 : 
04 50 E9 O2A BLBC Ooi : 
04 AB 1F 88 OO2A BIS82 #31, QUAL_FLAGS+4 : 0805 
011c «CAO 00 A9 1&$:  PUSHAB P.ABG : 0807 
69 o1 FB O2AD CALLS #1, CLISPRESENT : 
01 «AB 01 02 0 FO 00280 INSV. RO, #2, #1, QUAL_FLAGS*1 : 
012¢ CA OF } B6 PUSHAB P.ABI : 0808 
69 gi FB BA CALLS #1, CLISPRESENT : 
01 «AB 01 03 0 F B INSV RO, #3, #1, QUAL_FLAGS*1 ; 
013¢ 4«6CA «OOF O02C PUSHAB P.ABK : 0813 
69 1 F ¢ CALLS #1, CLISPRESENT : 
01 «AB 01 06 : F cA INsy RO. ‘ #1, QUAL_FLAGS+1 F 
05 AB AQ BF bs D3 BISB2 #160, OUTPUT_FAB+5 : 0817 
014C CA 9F 00208 19$: | PUSHAB P.ABM : 0819 
69 :.¢ DC CALLS #i, CL ISPRESENT : 
01 «AB 01 4 0 F OF INSV RO. #4, #1, QUAL_FLAGS#1 : 
2 ES MOVL RO, TATUS ; 
0 E BLBC : 3 
34 AE SF OO2EB PUSHAB FILE DESC > 0822 
015¢ «= CA.sO9F «O02E PUSHAB P ; 
000000906 00 62 F F CALLS #2, CLISGET_VALUE : 
C AB 38 OAE CO F MOVL  FILE_DESC#47 OUTPUT_FAB+44 > 0823 


| 16 
DIRECTORY 18.28 -1984 :38: AX-11 Bliss-32 V4.0-74 Page 27 
Mee o00 1278 08- 1 3be 93:78:38 DIR SREIDIRECTONY B32, 9 a) 
50 3 OC«A F MOVZWL FILE_DESC, RO . : 0824 
34 «AB 3 MOVB ny. OUTPUT _FAB+S2 : ; 
D TSTL : 
1 BNEO 218 ; 
24 1 as 6 A BBS #6, QUAL_FLAGS+1, 21$ : 0825 
C AB 0164 cA : F MOVAB P.ABQ, OOTPUT FAB S44 : 828 
4 AB i 9 13 OVE ai. duTPuT_FAB+52 : 0829 
| Ps} 
000000006 8F 32 Dt 18 208 cAPL LI STATUS, #CLIS_NEGATED : obs 
@ AB 0170 CA 9 4 MOVAG P.ABR, OUTPUT_FAB+44 : 0837 
4 AB 03 9 A MOVE #3, OUTPUT FAB+5 : 0838 
05 AB AO BF BA BICB2 #160, OUTPOT_FAB+S F 840 
017C CA OF 218 PUSHAB P.AB > 084 
69 Ez, CALLS #1, CLISPRESENT ; 
01 «AB 01 05 0 FO 0033A INSV RO. #5, #1, QUAL_FLAGS+1 : 
1 50 : 034 BLBC : : 
046 AB 04 88 0034 BISB2 #4. QUAL_FLAGS+4 + 0846 
0196 CA 9F 0034 PUSHAB P.ABU > 0847 
69 or FB 0348 CALLS #1, CLISPRESENT : 
04 AB 01 06 0 FO 0034E INSV RO, #6, #1, GUAL_FLAGS*4 : 
01A8 CA 9F 00354 228:  PUSHAB P.ABW + 0849 
69 o1 FB 0358 CALLS #1, CLISPRESENT F 
01 «AB 01 07 0 FO 00358 INSV RO. #7, #1, QUAL_FLAGS*1 : 
08 50 £9 00361 BLBC—_—«aO; : 
04 AB 04 88 00 64 BISB2 #4. QUAL_FLAGS+4 : 0852 
10 AB 17 CO 00368 ADDL2 #28, COLOMN_WIDTH > 085 
0188 CA 9F 0036C 23$:- PUSHAB P.ABY : 0855 
69 01 FB 90370 CALLS #i, CLISPRESENT : 
02 As 01 00 50 FO 0037 INSV ; #1, QUAL_FLAGS+2 : 
OF 50 £9 00379 BLBC RO, 24 ; 
01 AB 040000A0 BF C8 9037¢ BISL2 #67109024, QUAL_FLAGS+1 : 0860 
68 01 88 00384 BISB2 #1, QUAL FLAGS : 0859 
10 Aa 17 C0 0387 ADDL2 #2$, COLOMN_WIDTH ; 0861 
01¢8 cA SF 0038B 24$:  PUSHAB P.ACA : 0863 
69 1 i: O38 CALLS #1, CLISPRESENT : 
52 50 € 00 32 BLBC = RO. 268 F 
0824 (8 D4 0039 CLRL ss MIN BLOCK > 0866 
0828 C8 3FFFFFFF &F D0 00399 MOVL #1073741823, MAX_BLOCK : 0867 
O1E8 CA 9F OO3A2 PUSHAB P.ACC : 0868 
69 gi FB 0 Ag CALLS #1, CLISPRESENT ; 
34 0 0 A BLBC ; 25$ : 
02 AB 04 88 003AC BISB2 #4. QUAL_FLAGS+2 : 0871 
3¢ AE OF 80 PUSHAB VALUE_DESC : 0872 
0208 CA 9F 0038 PUSHAB P.ACE : 
000000006 00 62 FB 00387 CALLS #2, CLISGET_VALUE : 
0824 CB 9F 0038 PUSHAB MIN BLO + 0873 
ie pp 03¢ PUSHL  VALOE_DESC > 0874 
7 4 Ar C 003¢ MOVZWL VALUE DES¢ -(SP) : 0873 
000000006 F 69 CALL a3. LTBSCvf_pTB : 
: D 09 MOVL R STATUS : 
B E D BLBC STATUS, 27$ : 0876 
0824 CB D3 D6 TSTL BIN BLOCK ; 
va DA BLSS 30S ; 
04 AB 01 8 o¢ BISB2 #1, QUAL_FLAGS+4 > 0882 
0228 CA 9F OO3E0 25$: PUSHAB P.ACG ; 0884 
69 1 FB O03E4 CALLS #1, CLISPRESENT : 
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15:3f | HOT SeesbRectonr O30, 


DESC 
We CLISGET_VALUE 


R0. 31$ 
vat QUAL _FLAGS*2 


STATUS, $ 
MAX_BLOCK 
“i. QUAL_FLAGS+4 


#i, CLISPRESENT 
RO, #3, #1, QUAL_FLAGS+2 


; 3% 
#1, QUAL_FLAGS+4 


nic ISPRESENT 
wid, QUAL_FLAGS+2 
#i, CLISPRESENT 
#33 gQUAL.FLAGS*2 
#i, CLISPRESENT 
#64, QUAL_FLAGS+2 


P.ACS 
#1, CLISPRESENT 
RO, #7, #1, QUAL_FLAGS+#2 


P.ACU 
#1, CLISPRESENT 
RO, #0, #1, QUAL_FLAGS+3 


#i, CLISPRESENT 
RO. #1, #1, QUAL_FLAGS+3 


VALUE _DESC 


#2, CLISGET VALUE 
VERSION_ COURT 
VALUED s¢°" (SP) 
+¥ LT stvf_o18 
STATUS, Wee 
VERSION COUNT 
40$ 


P.ADA 
#i, CLISPRESENT 
RO, #2, #1, QUAL_FLAGS*S 


7 peg tonv 


03 
2 
O2F 
000000006 00 
0814 
ee. 
000000006 op 
C4 
0814 
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0818 
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7E 4 
000000006 00 
57 
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0818 C8 
sf 
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000000006 00 
O81C 
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7E 34 
000000006 99 
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o8ic 868 , 
0358 
000000006 00 
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7E 4 
000000006 99 
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000000006 00 
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9F QO4DA 
(Hi 
F 4E5 
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Hite 
SF OO4F 
9F O04F8 
FB OO4FF 
a He 
Be 0500 
FB 00511 
DO 00518 
E9 00518 
05 b2i5 
19 005 
5 He 
OF 00528 
9F 005 
FB 005 
9F 005359 
eH 
FB 00544 
DO 00548 
E9 0054E 
D5 00551 
19 00555 
is 00557 
D0 00559 
9F 005 . 
9F 0056 
FB 00565 
4 of 
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38$: 


39$: 


40$: 


p-1984 :38: AxX-11 Bliss- 
oars PaaS TS  e 
BL8S RO, 37S 
BRW 4 
PUSHAB VALUE _DESC 
PUSHAB P.A 
CALLS #2, CLISGET_VALUE 
PUSHAB DISPLAY WIDTH 
PUSHL VALUE_DESC+4 
MOVZWL VALUE DESC -(SP) 
CALLS +e LYBSCVf_pTB 
VL —RO,_- STAT 
BLBC TATUS, 35$ 
TSTL PLAY_WIDTH 
BLSS 
PUSHAB VALUE_DESC 
PUSHAB 
CALLS #2, CLISGET_VALUE 
PUSHAB FILENAME _WIBTH 
PUSHL VALUE_DESC+4 
MOVZWL VALUE-DESC, -<SP) 
CALLS #3, LIBSCVf_pTB 
MOVL RO, STATU 
BLBC STATUS, 40$ 
TSTL  FILENAME_WIDTH 
BLSS 40$ 
BNEQ 38$ 
MOVL #19, FILENAME_WIDTH 
PUSHAB VALUE_DESC 
PUSHAB P.ADG 
CALLS #2, CLISGET_VALUE 
PUSHAB OWNER_WIDTH 
PUSHL VALUE-DESC+4 
MOVZWL VALUE-DESC, -(SP) 
CALLS #3, LIBSCVf_pTB 
MOVL RO. STATUS 
BLBC STATUS, 40$ 
TSTL  OWNER_WIDTH 
BLSS 408 
BNEQ 9$ 
MOVL #20, OWNER_WIDTH 
PUSHAB VALUE_DESC 
PUSHAB P.ADI 
CALLS #2, CLISGET_VALUE 
PUSHAB SIZE WIDTH 
PUSHL VALUE_DESC+4 
MOVZWL VALUE DESC, -(SP) 
CALLS 3. LTBSCvt_oTB 
MOVL’ R STATUS 
BLBC STATUS, 40$ 
TSTL Size wiotH 
BGEG §=s 
PUSHAB OUTPUT RAB 
CALLS #1, S¥SSFLUSH 
PUSHAB 
CALLS #1, SYSSWAIT 
PUSHAB VALUE_DESC 
PUSHL @# 
PUSHL #7934204 
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DIRECTORY 15-Sep-1984 23:38: AX-11 Bliss-32 V4.0-74 Page 30 
Mone 600 1228 08- 1382 93:38:38 YOIR. SRE pikectony 3ec% a) 
000000006 09 FB 005 CALLS #3, LIBSSIGNAL : 
04 16 AB f 8 cMPzV #0 #3, WORST_ERROR, #4 : 
146 AB 107910FC _8F a4 MOVL  #276369660, WORST_ERROR F 
03 ¢ C2 41$: BRW 86$ : 0971 
Q C5 42$:  BNEQ  43$ + 0973 
0820 8 6 D ¢ MOVL #6, SIZE_WIDTH : 
B OC eC 43$ PUSHL : 0978 
000000006 09 1% ¢ CALLS #1, SYSS$CREATE : 
9 DO 0050 MOV STATUS : 
11 : 5D BLBC STATUS, 44$ : 0979 
0830 : F 00508 PUSHAB oy UT_RAB + 0985 
000000006 90 & DF CALLS » SYSSCONNECT ; 
9 D ES MOVL TATUS : 
7 58 5D pace 44$ et Sh stitus, 458 ; 9389 
007910A4 ef pp Oste PUSHL #7934116 ; 
0355 31 005F4 BRW : 
3E 40 AB 02 1 005F7 45$: BBC #2, OUTPUT_FAB+64, 46$ > 0995 
1¢ 00 6E 1° C Bre MOVCS #0, (SP), BO, #28, GETDVI_ARGS ; 0998 
10 AE 00040004 8F 0 90603 v #262148, GETDVI_AR : 0999 
14 =A AE 3 eh MOVAB  INDEV SLASS GETDOVI tite : 1000 
1C AE 00080004 8F 00 0061 MOVL #524292, GETDVI_ARGS*+1 : 1001 
20 AE 08 AE 9E 00618 MOVAB INDEV_BUFSIZ, GETDVI_ARGS+16 : 1002 
fe OE Soci ttt ets Rees 
20 AE OF 006 1 PUSHAB GETDVI_ARGS ; 
034C CA 9 0624 PUSHAB P.ADK F 
E 7C 00628 CLRQ ss =( SP) : 
000000006 00 08 FB 0062A CALLS #8, SYSSGETDVI : 
57 50 DO 00631 MOVL RO, STATUS ; 
03 5 8 06 BLBS status. 46$ + 1006 
O1CA 31 00637 BRW 1$ : 
0814 cs D3 063A 46S: TSTL DISPLAY WIDTH : 1013 
15 12 006 5 BNEQ  48$ : 
00000042 ~=&F 04 AE D4 0649 CMPL INDEV_CLASS, #66 : 1016 
08 A 84 BF 9A 0064A MOVZBL #132, INDEV_BUFSIZ ; 
0814 C 08 AE DO 0064F 47$: MOVL INDEV_BUFSIZ, DISPLAY_WIDTH + 1017 
Boo Bf at Raa Hae Arete ine 
01 Ra 5 O68 TSTB © QUAL_FLAGS*1 > 1024 
0 1 66 BLSS 49% : 
09 02 =A EO 006 BBS #3, QUAL FLAGS *2 49$ : 
09 01 3 - 0 f 6 abe QyAL FLAGS#1 436 50$ Gomes 
03 A 3 oe 49%: TSTB QUAL _FLAGS#5 : 1026 
08 AB + 48 oocre Beer atS coLUNW. COUNT > 1027 
06 AB CE 7A 508:  BLBC QUAL FLAGS?4, 528 ; 1031 
0668 ¢ p 7 st FIRST_XAB : 10 
0738 § 9 MOVAS INFO_XABFHC, XAB_PTR > 1035 
6 p 689 MOVL KAB PTR, FIRST_XAB ; 
; 6 BRB : 
0738 CB 9E 00690 51$:  MOVAB INFO_XABFHC, 4(XAB_PTR) > 1036 


, Rec rony 1b-38-19 4 $3: 38:38 AX=11 Bliss-32 V4.0-74 


14-Sep-1984 DIR. SRCIDIRECTORY .B32; 


4 0738 9 96 MOVAB InFo XABFHC, XAB_PTR 
1D 04 8 §f £ 52$: BBC QUAL PLAGSeES 54$ 
0668 cs : Hi TSTL FIAST T_XAB 
5 070¢ : 9 3 SOY AB 53s. XABDAT, XAB_PTR 
0668 Se N ROVL AB. PTR, FIRST_XAB 
04 Ab 979¢ CB 9E 00682 53S MOVAB INFO -XABDAT, 4 (XB PTR) 
5 70¢ f i 6 MOVAB INFO-XABDA 
1D 06 A £1 0068D 54$: BBC #2, QU UAL fLAGSees 56$ 
oct web GUSTIN 
56 0684 cs 9 gt MOVAB INFO_XABPRO, XAB_PTR 
0668 ¢ ‘4 : cp mOVL AB. PTR, FIRST_XAB 
04 684 C 3 gp4 55$:  MOVAB- INFO -XABPRO, 4(XAB_PTR) 
rT 6B4 § : DA MOVAB INFO arApPr 
1D 04 E1 OO6DF 56S BBC 3 QUAL FLAGS+4, 58S 
0668 ¢ BS 06E4 TSTL FARSTx 
C 06E8 BNEG 57$ 
5 06A8 cs 4 O6EA MOVAB INFO_XABSUM, XAB_PTR 
0668 6 og O6EF mOVL AB. PTR, FIRST_XAB 
06 Ab Gas cB 9E 006F6 578: MOVAB INFO KABSUM, 4 (xB PTR) 
56 6A ¢ 9 FC MOVAB INFO-X TR 
45 06 «AB 4 € $70) 58$: BBC ry BUA FLAGS #43 61$ 
en ae 
5 066C 9€ 0070C MOVAB info on AB_PTR 
0668 C $6 BO 0711 MOVL AB_PTR, FIRST t _XAB 
0B 11 O716 BRB 50S" 
04 As 66¢ c 9 ort 59S: HOVAB INFO -ABINL, 4 (XAB PTR) 
50 1c OA Bb 07 5 60$: MOVL teen y aLOgR 
oc ae Me 
rc ¢ OIAA OC 3 07 § MOV tein ONO XABJNL*+16 
678 C 10 90 0073A MOVE oft $ InFo XABINL +1 
aC c 0188 : 3 13 MOVAB 44 $iR0) IN INFO XABNL +32 
50 10 A 0818 ¢ gt 748 61$: ADDL Fit NAME OTD COLUMN _WIDTH, RO 
10 A 01 OA f 7 MOVAB 1(R0), COLUMN WU ory 
oc 01 OA 05 €1 007 BBC #5, QUAL_FLAGS+1, 62$ 
. fice: ew res ADDLS  QUNER WIDTH, COLUMN WIDTH, RO 
22 0 A 0 i 768 62%: BBC 83, QUAL _FLAGS#2, 64$ 
1 A 04 3 re BBC #4, au QUAL hie: * 63$ 
19 A 8 esto ; 77 MOVAW a OF OMA OU IOTH RO}. COLUMN_WIDTH 
1 A 8 ¢ AA ADDLe arg COLOMN_W 
50 19 A 0830 cs ¢ 783 63$: ADDL 12e WIDTH. sgOLURN WIDTH, RO 
10 A A 78A MOVAB . DTA 
1F 6 4 €0 OO78F 648 BBS a4, QUAL FLA vacs” 1? $ 
1g 6 £0 007 ; BBS a6, QUAL “FLAGS, 65$ 
1 6 f 79 BBS QUAL it acs. 65$ 
6 798 TSTB a Au. 


OE 01 
04 02 
10 
51 0814 
51 0814 
08 
08 
04 
000000006 
000000006 
000000006 
000000006 
50 57 
50 14 «AB 
000000006 
i 
03 1 
000000006 
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65$ 
$2 QUAL _FLAGS*1, 65$ 
QUAL_FLAGS+1 


#3, QUAL_FLAGS+2 
QUAL_FLAGS+1, 66$ 
OLUMN 


# oO H 
#4, DISPLAY WIDTH, R1 
COLUMN_WIDTA, R1 
COLUMN_ COUNT, RO 

RO, R1 

6 4 

8$ 

COLUMN_WIDTH, DISPLAY_WIDTH, R1 
COLUMN_COUNT, RO 

RO, R1 

68$ 

Ri, RO 

RO, COLUMN_COUNT 

69$ 

QUAL_FLAGS, 70$ 

#1, COLUMN_COUNT 

CMN_QUAL_CTX 

#510, 4(SP) 
4(SP 

4% LIBSQUAL_F ILE_PARSE 
RO, STATUS 

STATUS, 74$ 

OUTPUT_RAB 

#i, SYSSFLUSH 

#i, SYSSWAIT 


rT LIBSSIGNAL 
TATUS, # 


65$ 


86$ 
#0, 3. STATUS, RO 
40, #3, WORST_ERROR, RO 


2$ 
FILE DESC 


#2, CLISGET_VALUE 
FILE DESC#4> INPUT _FAB+44 


FILE“DESC, INPUT FAB+52 
i GUAL_FLAGS+17 As 
QUAL FLAGS, 76$ 
FORMAT_ACL_ADDR 

P.ADQ 

P- ADO 

a3, LIBSF IND_ IMAGE _SYMBOL 
STATUS. $s 


QUAL_FLAGS*+4, 77$ 
i. GUAL_FLAGS+4, 77% 
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ote TORY 


000000006 
0000v 


0000Vv 
00006 
05 01 
00006 
47 04 
000000006 
000000006 
000000006 


00000000" 8F 14 AB 


14 
14 


000000006 


0000Vv 


3; Routine Size: 2390 bytes, Routine Base: 
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& 

A 
CD Pt 

AD ne 
38h 
B 

00 
80 

CF 

BC 
34 
34 

CF 
0444 

CF 
01 0454 

A8 

CF 
4C 14 

A8 
0830 

00 
0830 

00 
00 000000006 
00000000* 

03 
A8 00000000* 
AB 10018290 

0D 
; 0079105A 
5 14 
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SCODES + 0000 


v4.0-74 
ORY .B32; 


° LA 
#4, QUAL“FLAGS*+4, 78$ 
64 _NAM+ 
FIRST_XAB, INPUT _FAB+36 


gg AL ae 
RO, PbS ° 


Ne DESC 
LINE_DESC 
=(SP 
#2, DIRSOUTPUT 
TOTAL_FILES 
#0, DIRSTOTAL 
GRAND _DIRS, #1 


4 
#2, QUAL_FLAGS+1, 82% 
’ p DIRSGRAND_ TOTAL 


OR 
#5, QOAL_FLAGS+4, 84$ 


1, LIBSSIGNAL 
#<DIRS_NOF ILES@7> 


a3$ 
oso ies NOF ILES!268435456>, WORST_ERROR 
ace 534416, WORST_ERROR 


#1, SYSSCLOSE 
0; STATUS 
STATUS, 86$ 
R11 


7934042 
#2, DIRSFILE_ERROR 
WORST_ERROR, ~RO 


8 
#0, #3, WORST_ERROR, #<DIR$_NOF ILES&7> 
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; 789 11 1 ROUTINE DIRSGET_FILE (FILE_FAB) = 

; 790 11 1 

; 791 11 3 1 tee 

; 79 11 1! 

e.. 11 1 ! FUNCTIONAL DESCRIPTION: 

3 794 1191 1°! 

; 795 1138 13 This routine gets the next file specification in the command Line. 
: re 1195 1! If there are no more files, the routine returns zero. Otherwise, 
; 79 1194 1! the file specification is placed in the specified FAB for later 
; 798 1195 1! parsing and searching. 

; 799 1138 1! 

; 800 1197 1 ! CALLING SEQUENCE: 

; 801 1196 1! DIRSGET_FILE (ARG1) 

; 80 1199 1! 

; 80 1200 1 ! INPUT PARAMETERS: 

: ape : 4! : ARG]: address of the FAB into which the file spec is placed 

; 806 1 8 1 ! IMPLICIT INPUTS: 

3; 807 1206 1! none 

; 808 1205 1! 

; 809 1206 1 ! OUTPUT PARAMETERS: 

3 3i9 1207 1! none 

; 11 1208 1! 

3 aig 1209 1 =! IMPLICIT OUTPUTS: 

; «81 1210 1! none 

3 «814 1211 1! 

; 815 1 \¢ 1 ! ROUTINE VALUE: 

; 816 121 1! 1 if a file specification was found 

3; 817 1214 1! 0 otherwise 

; 818 1215 1! 

3 819 1 1 1 ! SIDE EFFECTS: 

3; 820 121 1! The retrieved file specification is placed into the specified 

; 821 1218 1! FAB for later parsing. 

3 He 1219 1! 

>. & 1220 1 !-<- 

; 824 1221 1 

; 825 1 § BEGIN 

:. & $ 1 

:; 8 1224 MAP 

3; & : : 5 FILE_FAB : REF SBBLOCK; ! FAB address 

3 é 1 5 LOCAL 

: 1 1228 FILE_DESC : SBBLOCK FoscsC_s_BLNJ, ' File name descr 
; § ! ; SCAN_FLAGS : SBBLOCK (4); ! SFILESCAN flags 
: : i 1 ! Initialise needed variables. 

3 1 CHSFILL (9 DSC$C_S_BLN, Pig DESC); 

: 4 FILE_DESCCOSC$B_CCASS) = DSC$R_CLASS_D; 

s ' § ! If there are no more file specifications, return with zero. 

: 1 : 3 If NOT CLISGET_VALUE (SDESCRIPTOR ("INPUT'), FILE_DESC) THEN RETURN 0; 
: c$ ' 7 ! Otherwise, fill in the appropriate fields in the FAB. 

3 5 1242 FILE_FABCFABSL_FNA) = .FILE_DESCCOSCSA_POINTER); 
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FILE_FABCFABSB_FNS) = .FILE_DESCCOSCSW_LENGTHI; 
! Determine whether or not tne new spec is to get a new heading. 


CAN_FLAGS = 0; 
SF ILestan (SRCSTR = FILE_DESC, FLOFLAGS = SCAN_FLAGS) 
IF .SCAN_FLAGSCFSCNSV_NODE) OR .SCAN_FLAGSLFSCRSV_DEVICE) 
OR .SCANLFLAGS FSCNSV-ROOT] OR .SCAN-FLAGSCFSCNSV-DIRECTORY 
BEGIN 
VERSION_INDEX = 0; 
PREV_DIR_LEN = PREV_FILE_LEN = 0; 
END; 
RETURN 1; 
1 END; ! End of routine DIRSGET_FILE 
-PSECT S$PLITS,NOWRT,NOEXE,2 
54 55 50 4E 49 00390 P.ADT: ASCII \INPUT\ 
00395 -BLKB 3 
00000005 00398 P.ADS: .LONG 5 
00000000" 0039¢ .ADDRESS P.ADT 
.EXTRN SYSSFILESCAN 
¥SECT SCODES,NOWRT,2 
007C 00000 DIRSGET * cE: 
-WORD Save R2,R3,R4,R5,R6 
56 00000000" EF 9 99002 MOV VERSION_INDEX, R6 
5€ ¢ § 0009 SUBL2 #12, SP 
00 bE e 00 900¢ MOVCS #0, (SP), #0, #8, FILE_DESC 
07 AE 05 90 0013 MOVB #2, FILE _DESC+3 
04 AE 9F 0001 PUSHAB FILE DESC 
0000" CF 9F QOOTA PUSHAB Abs 
000000006 00 2 FB 1 CALLS #2, CL 1SGET_vALUE 
A E BLBC ~—E_—d-RO, 
0 4 AC D MOV FILE_FAB, RO 
3 Ad 8 AE C MOVL FILETDESC+4, 44(RO) 
. s 4 AE 1 MOVE FILE“DESC, 52(R0) 
E D4 LRL —- SCANFLAGS 
— OD PUSHL SP 
© p4 A LRL ss = (SP) 
0c At F C PUSH pque DESC 
000000006 90 o3 F F CALLS #3, SYSSFILESCAN 
C : c ag BLBS scAn FLAGS, 1$ 
5 &E E 4 BAS #1, SCAN_FLAGS, 1$ 
4 6F E 4 BBS a. SCAN-FLAGS, 1$ 
9 bt £ BBC #3, SCAN-FLAGS, 2$ 
D4 1$: CLRL «VERSION TNDEX 
FB Ab OG CLRL PREV_FICE LEN 
FEF4 C6 D4 A CLAL PREV-DIR_CEN 
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eal 


1186 
1233 


1234 
1838 


1242 
124 

8a 
1248 


1249 
1250 


1882 


Ee 
RECT - - +3; o o as 
voce600.. 1Fo-seontgte 13:78:37 Eta’ sePibinectony 03064 Pace 38 voe 
50 01 BO Q005E 28: MOVL #1, RO : 1257 ls 
50 a Ho ste ; 
4 00062 38: cURL ; 1259 


; Routine Size: 101 bytes, Routine Base: S$CODE$S + 0956 


eee eee 3.00000: . 
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GLOBAL ROUTINE DIRSINPUT_ERROR (FILE_FAB) = 
lee 
i FUNCTIONAL DESCRIPTION: 
This routine is used to signal errors received on the input file. 


i CALLING SEQUENCE: 
DIRSINPUT_ERROR (ARG1) 


i INPUT PARAMETERS: 
ARG1: address of the FAB 


! 

! 

' 

i 

1 

' 

‘ 

' 

' 

' IMPLICIT INPUTS: 
none 

! QUTPUT PARAMETERS: 
none 

' IMPLICIT OUTPUTS: 
none 

mretieg, VALUE : 

‘ 
' 
' 
' 
1 
' 


i SIDE EFFECTS: 
The error is signaled by placing the appropriate message into 
the output file. 


FILE_FAB : REF SBBLOCK; ! FAB address 


IF .FILE FABCFABSL_STS] NEQ RMSS_FINF 
THEN DIRSFILE_ERROR ‘DIRS_OPENIN, .FILE_FAB); 


RETURN 1; 
END; ! End of routine DIRSINPUT_ERROR 
0000 00000 -ENTRY DIRSINPUT_ERROR, Save nothing : 1360 
50 0 AC 00 O00¢ MOVL pte FAB : 1297 
00018292 8F 08 ad 0} 9 CMPL «=—s BROT, #98962 : 
13 BEQL 1$ ; 
DD 1 PUSHL - ; 1298 
0079109A F DD 1 PUSHL #7934106 3 
0000v CF FB 1 CALLS ae. BIRSF ILE ERROR 3 


o 
Oo 
nN 
oo 
— 
Cad 
xz 
m 
“_—< 
ce 


i 


—" a 
be 


mequiimansengeyenll 


Routine Base: S$CODES + 0988 


33 bytes, 


: Routine Size: 


esse 


— 
1 
pgRECTORY 1B-seo-198 25:38:58 yan-t! a ige32 4.02742 rage 39 


GLOBAL ROUTINE DIRSFILE_ERROR (ERROR_CODE, FILE_FAB) = 


33 


182 | | 
311 1306 1 i 
98 1 oF i FUNCTIONAL DESCRIPTION: : 
916 08 This routine is used to signal errors received on files. : 
916 1311 1 ! CALLING SEQUENCE: ; 
97 ig ; DIRSFILE_ERROR (ARG1, ARG2) ; 
919 HE 1 | INPUT PARAMETERS: ; 
920 1315 1! ARG1: error code : 
$31 1316 : ARG2: address of the FAB ‘ 
338 1318 i IMPLICIT INPUTS: ; 
Sei boa : 
996 1391 1 1 OUTPUT PARAMETERS: : 
Ce 8 : 
99 1324 1 | IMPLICIT OUTPUTS: : 
93; 1356 i none : 
932 1397 1 | ROUTINE VALUE: : 
ee te feo ? 
935 1380 1 | SIDE EFFECTS: : 
936 1331 1°! none : 
OTT 7 
939 1384 1 ; 
940 1335 2 BEGIN ; 
re 1339 5 map ; 
44 1338 FILE_FAB : REF SBBLOCK; ! FAB address : 
908 1340 BIND ; 
946 1343 FILE_NAM = .FILE_FABCFABSL_NAM] : SBBLOCK; ! NAMe block address : 
1 OCA ; 

39 134 tts FILE NAME : SBBLOCK COSC$C_S_BLN); ! Local file name descr : 
951 1 CHSFILL (0, DSCSC_S_BLN, FILE_NAME); : 
95 1c? 5 fr FILE NAMENARSB.RSLD NEO ; 
$84 1369 § Maen : 
955 1350 FILE_NAME(DSCSW_LENGTH) = .FILE NAMCNAMSB RSL); : 
936 2! FILENAAELDSCSA-POINTER) = .FILE_NAMCNAMSC_RSA); : 
938 35 ELSE IF .FILE_NAMCNAMSB_ESL) NEQ 0 : 
960 1355 BEGIN ; 
1 135 FILE_NAME(DSCS$W_LENGTH) = .FILE NAMCNAMSB ESL); ; 
3 : $3 FILE MARE [DSCSA-POINTER) =" FILE_NAMCNAMSC_ESA); : 
964 1 85 ELSE : 


Arn WO 


fF 1 
DIRECTORY 15-Sep-1984 23:38:58 AX-11 Bliss-32 V4.0-74 Page 40 
v04-000 10-Sep-19 4 43:78:39 YOTR.SRC DIRECTORY .B32; : (7) 
: 965 1360 BEGIN 
; 966 1361 FILE. AME FDSCSW_LENGTH] = .FILE_FABCFABSB_FNS); 
; % 136 FILE-NAMELDSCSA-POINTER] = .FILE_FABLFABSC_FNAJ; 
: 366 i — 
: 970 P 1365 2 SIGNAL (.ERROR_CODE, 1, FILE_NAME, .FILE_FAB FABSL_STS] 
: 97] 1366 FILETFABLFABSL-~STVJS; 
: 97 1368 IF .WORST_ERROR EQL (.ERROR CODE OR STS$M_INHIB_MSG) 
; are ; $ THEN WORST_ERROR = .FILE_FABLFABSL_STS] OR STSSM_INHIB_MSG; 
: 9 4 RETURN 1; 
; #978 1375 1 END; ! End of routine DIRSFILE_ERROR 
O1FC 90000 .ENTRY DIRSFILE_ERROR, Save R2,R3,R4,R5,R6,R7,.RB  ; 1303 
58 00000000' EF 9€ 0000 MOVAB WORST_ERROR, RB : 
5 08 C2 00009 SUBL2 #8, : 
5 08 AC 00 0000C MOVL FILE_FAB, R7 + 1341 
56 28 A? 00 00010 MOVL 40(R7), R : | 
08 00 6E 00 2c 90014 MOVCS #0, (SP), #0, #8, FILE_NAME + 1346 
03 A6 95 OOOIA TSTB =—_- 33 (R6) : 1347 
0B 13 00010 BEQL i$ : 
6E 03 «Ab 98 0001F MOV7BW 3(R6), FILE_NAME : 135 
04 AE 04 AB D 909 3 MOVL  4(R6), FILE-NAME+4 : 135 
19 11 00028 BRB 3$ : 134 
OB Ab 93 0002A 1$: TSTB =—s_: 11 (RO) : 135 
0B 13 0002D BEQL ©-2$ ; 
6E 0B Ab 98 900 F MOVZBW 11(R6), FILE_NAME + 135 
04 AE 0C a6 DO 000 OVL 12(R6), FILE-NAME +4 : 135 
09 11 000 BRB 3 : 135 
6E 34 A? 98 OOO3A 28: MOVZBW 52(R7), FILE_NAME : 136 
04 AE 2c =o a?sé 900 4 MOVL  44(R7), FILE-NAME+4 : 136 
081C CB 9F 00043 3s: PUSHAB OUTPUT RAB : 136 
000000006 00 01 FB 00047 CALLS #1, SYSSFLUSH : 
081C CB 9F 0004 PUSHAB OUTPUT _RAB ; 
000000006 90 01 FB 0005 CALLS #1, SYSSWAIT ; 
E 08 a7 70 0005 VO 8(R7), -(SP) : 
08 at OF 9050 PUSHAB FILE E : 
01 oD 69 PUSHL @ ; 
52 06 AC DO 0006 VL ERROR_CODE, R2 ; 
52 DD 00 PUSHL ; 
000000006 00 Q f CALLS #5, L1B$S1GNAL ; 
7 32 9 , 8118 R2. # : 
50 52 05 0 EF 74 EXT2V 40. a3. R2. RO ; 
0 0 ig 19 cMPZV ’ ; #3, WORST_ERROR, RO ; 
$8 $2 10000000 BF C 09 BISL3 # 68435456 R2, WORST_ERROR ; 
52 1 iC 1 F0 48: INSV os #1, #28, ai, Re : 1368 
52 68 D1 09 CMPL YORST ERROR, R ; 
9 12 BNEQ 5 3 
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3: Routine Size: SCODES + O09DC 
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1 
w$ep-i9ee 12:19:31 EbtRssReIDIAECTORY=032;41 Pane 8s v0 


H 
otSsig : 


! If there is a message code present, gat the message text via a SGETMSG. 


' Otherwise, use the descriptor supplied. 


SOOOCCOCOCOCCCOoCoO 


g ? : Me : GLOBAL ROUTINE DIRSOUTPUT (MESSAGE CODE, CONTROL_STRING, ARGS) = : 
98 1376 1 See 3 
98 1377 1! ; 
eae : 4 ! FUNCTIONAL DESCRIPTION: : 
986 1380 1! This routine accepts, as input, an $FAO control string and any PF 
987 1381 7! arguments to be formatted by the control string. The formatted : 
ose : ¢ : } Line is then written to the desired output file. : 
990 1384 1 =! CALLING a a : 
od . 5 : } DIRSOUTPUT (ARG1, ARG2, ..., ARGn) : 
998 1387 1 >! INPUT PARAMETERS: 3 
994 1388 1! ARG1: message code for the text to display : 
995 1389 1! wal address of the $FAO control string PF 
238 : 4 : ARGS = ARGn: arguments to be formatted . 
998 1396 1 ! IMPLICIT INPUTS: F 
G4 1395 1! none 3 
1000 13946 1! ; 
1001 1395 1 ! OUTPUT PARAMETERS: : 
H's 1396 1! none : 
100 1397 1! 3 
1004 1398 1°! IMPLICIT OUTPTUS: 3 
1005 1399 1! none F 
1006 1400 1! : 
1007 1401 1 ! ROUTINE VALUE: : 
1008 Me 1! 1 $ 
1009 140 1! P 
1010 1406 1 ! SIDE EFFECTS: 3 
1011 1405 1! none F 
Ht 1406 1! ; 
101 1407 1 !-- $ 
1014 1408 1 é 
1015 1409 BEGIN ; 
1016 1410 : 
1017 1411 2 MAP ’ 
44 : \g CONTROL_STRIN} : REF SBBLOCK; ! Address of the control string : 
1020 1414 LOCAL : 
1021 1415 FAO CTL_STRING =: REF SBBLOCK ! Addr of $FAO control string : 
1 é 1416 MESSAGE-DESC =: S$BBLOCK costsc S BLN], ! Message text descr : 
i 141: MESSAGE _TEXT : VECTOR (256, BYTE), ! Message text F 
1024 1418 STATUS; ' Local routien exit status : 
1025 1419 3 
1 $ 1420 : 
102 1421 ; 
1028 1 ; 3 
1 1 : 
1 1426 e 
: 5 é 
| nH 
1059 
1 1430 : 


Be Be Be Be Oe Be Oe Be Be Se Be Oe Oe Se Se Se Be Se Se Se Se Se Se Be Ge Be Se Se Ge Se Ge Ge Se Se Ge Ss Se Ss Ge Se Ge Se Se Se Ge Se Oe Se Se Se SHS SH Se Beane 


9 IF .MESSAGE_CODE NEQ 0 
THEN 
CHSFILL (0, DSCSC_S.BLN, MESSAGE DESC) 
038 ne SsaGt DeScTOSC$0.CEN fH) > 2967 
MESSAGE DESCLDSCSA-POINTER) = MESSAGE_TEXT; 
055 P SGETMSG”(MSGID = .MESSAGE_CODE 
0 P MSGLEN = MESSAGE ~DESCCDSC$W_LENGTH), 


Be Se Oe Oe Se ee Se Se Os Oe Se Se Oe Se Ge Se Se Se Se Se Ge Se Se Oe Se Se Se Se Se Se Se Oe Se Se Se Seas 


1 
DIRECTORY thestoet - :3 AX-11 Bliss-32 V4.0-74 Page 43 
Vbeco00. 12-3087] 3b 3: #8: 3§ DIR.SRCID See fony o3or4 9° 8) 
1037 P 14631 BUFADR = MESSAGE_DESC, 
1038 14 ; LA 
10 14 FAO_CTL_STRING = = MESSAGE DESC; 
1040 1434 END™ 
1041 14 5 2 ELSE FAO_CTL_STRING = .CONTROL_STRING; 
1928 14 $ ' Format the Line. 
1044 1438 
1045 1439 0 IF .FAO_CTL_STRING NEQA LINE_DESC 
1046 1440 2 THEN 
194 \ee3 3 (0, DSC$C_S_BLN, LINE_DESC); 
UN, L 
19¢8 1e48 LINE “beschbstBe. LENGTH) O52) 
1050 1664 LINE ~DESCLDSCSA~ bo INTER] = Ota _BUFFER; 
105¢ P 1444 $FAOL (CTRSTR = .FAO_CTL_STRING, 
105 P 144 OuT LEN = LINE_DEST, 
1054 P 1448 OUTBUF = LINE~DESC, 
1998 642 PRMLST = ARGS); 
1057 1451 OUTPUT_RABLRABSL fer =, LINE _DESCEDSCSA POINTER); 
1058 1458 OUTPUT-RABLRABSW_RSZ) = .LINE-DESCLDSC$W~LENGTH); 
1059 145 END 
1060 1454 2 ELS 
1061 1455 BEGIN 
106¢ 1456 OUTPUT_RABCRABSL_RBF) = -FAQ_CTL_STRINGEDSCSA POINTER): 
106 145 OUTPUT-RABLRABSW_RSZ) = .FAOCTL~STRINGLDSCS$W-LENGTH); 
1064 1458 END; 
1065 1459 
1066 1460 2 STATUS = $RMS_PUT (RAB = OUTPUT RAB); 
1067 1461 IF NOT .STATUS THEN DIRSFILE_ERROR (BIRS LWRITEERR, OUTPUT_RAB) ; 
1069 1208 LINE_DESCCDSC$W_LENGTH) = 0; 
1070 1464 
1071 1465 2 RETURN 1: 
1072 1466 
1072 1467 1 END; ' End of routine DIRSOUTPUT 
.EXTRN SYSSGETMSG, SYSSF AOL 
“EXTRN SYS$PU 
OOFC 99009 ENTRY DIRSOUTPUT, agave R2,R3,R4,R5,R6,R7 : 1374 
57 00000000" EF 9E 000 MOVAB  LINE_D : 
SE FEFB «6CE 9 90009 MOVAB = ec sh “SP ; 
AC 05 OOO0E TSTL  MESSAGE_CODE > 1423 
3A 1 0011 BEQL ; | 
08 00 6€ 00 ar 0013 MOVCS #0, (SP), #0, #8, MESSAGE_DESC + 1426 
F8 AD 0108 BF B0 O01A MOVW #256, MESSAGE_DESC > 1427 
FC OA F E 0 MOVAB MESSAGE TEXT, "MESSAGE _DESC +4 3 1428 
7E D 4 mova ) 3 1432 
rs AD 9F 7 PUSHAB meSSace DESC : 
FB OAD OOF A PUSHAB ESSA GE “DESC ; 
04 aC DD p PUSHL " SSAGE ~ CODE : 
000000006 00 05 FB CALLS » SYSSGETMSG ; 
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000000006 40 
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Re 
ve 41 
D 44 
13 00047 
2c 49 
4E 

0 Q004F 
Hse 
5 18 
4 ie 
i B88 
80 44 
11 00074 
3 B37 
oF 0081 
2 8h 
5F it 
dD 00099 
FB 00099 
B4 0009E 
DO O00A0 
04 0003 
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3$: 
4$: 


5$: 


ne Bliss-32 V4.0-74 
DIR. SRCIDIRECTORY.B32; 


MESSAGE _DESC, FAO_CTL_STRING 
CONTROL STRING, FAO_CTL_STRING 
LINE_DESC 

FAO_CTL_SfRING, RO 

#0, (SP), #0, #8, LINE_DESC 


#1024, LINE_DESC 
LINE BUFFER; LINE _DESC+4 


“M<R6,R7> 

4, SYSSFAOL 
LINE_DESC+4, OUTPUT _RAB+40 
L INE-DESC, 6uTPUT_RAB+ 34 
4(FAO_CTL_STRING), OUTPUT_RAB+40 
(FAO_CTL_STRING), OUTPUT_RAB+34 
OUTPOT RAB 
#i, SySS$PuT 
STATUS, 5$ 
OUTPUT RAB 
#7934184 
#2, DIRSFILE_ERROR 
LINE_DESC 
#i, RO 
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146 1 GLOBAL ROUTINE SYSSFORMAT_ACL = 

1 1 lee ut 

14 9 we 

i : FUNCTIONAL DESCRIPTION: 

1278 ee This a dummy routine to satisfy the global reference of 
1474 1! the st ORRAS ACL macro. It simply calls the real service, 
1ef2 ’ } which has been dynamically (loaded. 

1279 1 | CALLING SEQUENCE: 

on : via SFORMAT_ACL macro 

16 0 INPUT PARAMETERS: 

14 ; 1; IMPLICIT INPUTS: 

i? Z ’ ORMAT_ACL_ADDR contains the loaded address of SYSSFORMAT_ACL 
1485 1 ' OUTPUT PARAMETERS: 

ie yon 

1488 1 | IMPLICIT OUTPTUS: 

Be genes 

1491 1 ! ROUTINE VALUE: 

sore : status returned from sys$format_acl service 

1494 1 | SIDE EFFECTS: 

1436 ' : none 

1497 1 in 

1498 BEGIN 

1499 BUILTIN 

1300 CALLG,AP; 

120¢ LOCAL 

1307 STATUS; 

1505 RETURN CALLG(.AP,.FCRMAT_ACL_ADDR) 

1506 1 END; 


0000 00000 ENTRY SYSSFORMAT ACL, Save nothing : 1468 
0000° OF 6C FA beens cyte (AP), @FORMAT “ACL ADDR ; 1505 
04 0000 RET : 1506 


8 bytes, Routine Base: S$CODES + OBIF 
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. vot Bom Complete 


Name Bytes Attributes 
DIRSCOMMON 2164 NOVEC, WRT, RO ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(O) 
SOwNS 34 NOVEC, WRT. RD ;NOEXE, NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 8 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 28 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, RE CON,NOPIC,ALIGN(2) 

Library Statistics 
eoceeee= Symbols ----ee-- Pages Processing 

File Total ioaded Percent Mapped Time 

-$255$0UA28: (SYSLIBJLIB.L32;1 18619 190 1 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:DIRECTORY/OBJ=OBJ$:DIRECTORY MSRC$:DIRECTORY/UPDATE=(ENHS:DIRECTORY) 


; Bise: 2855 bo 88°, ¢ 3783 data bytes 
; Elapsed Time: 09:8 a 
; Lexenes/CPU-Rin: 28952 


PSECT SUMMARY 
Used: 746 pages 
l 
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